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MHOST Version 4.2 Systems Manual 


This document discusses the internal structure of the MHOST finite element 
program designed for three-dimensional inelastic analysis of gas turbine 
engine hot section components. The computer code is the first implementation 
° f mrxed iterative solution strategy for improved efficiency and accuracy 
over the conventional finite element method. The formulation of the mixed 
iterative solution method is an original development under the HOST project 
(contract NAS3-23697) and detailed documaentation is available in the MHOST 
Theoretical Manual and other publications. The computer program has been 
written, tested and maintained at MARC Analysis Research Corporation, Advanced 
Aircraft GrOUP 38 3 su ^ contractor to the United Technology Pratt and Whitney 

computer program consists of about 450 subroutines and a total of 
47,000 lines of Fortran 77 statements. The current version 4.2 is no lonqer 
compatible with theANSI Fortran 66 standard. y 

This document covers: 

(i) the control structure of the program; 

(ii) the data storage scheme and the memory allocation procedure; 

(iii) the file handling facilities including the read/write sequences. 

A brief note on the control variables in the labelled cannon blocks is given 
in the control structure section. Pointers for the working arrays in the 
ccnmon block are described in the second section of this document. The files 
113 , . y snd those produced to communicate with other softwares (such 

as the graphic post-processing systems) are discussed in detail in the last 
section • 

The appandix includes the brief description of each subroutine in conjunction 
with the names of cannon block referenced therein. 


The MHOST code has been developed on PRIME 9955 at MARC running under Primos 
operating system (Rev. 19. 4. 2 of F77 conpiler has been used) and recently 
ported over to Alliant FX/8 running under unix operationg system. This 
version is protable to any other unix-based computers with minimum amount of 
conversion work. Versions are available on IBM mainframes with VS-Fortran 
Cottier (tested at United Technology Pratt and Whitney Aircraft) and CRAY X- 
MP COS using CFT compiler (the installation at NASA Lewis Research Center) 


(i) 



TABEL OF CONTENTS 


0.0 INTOODUCTION 1 

0 . 1 Program Architecture 1 

0.2 Rules and Conventions 3 

0.3 Subroutines and Ccmmon Blocks 5 

0.4 System Dependency 10 

1.0 CONTROL STRUCTURE 17 

1 . 1 Overview 17 

1.2 Execution Supervisor and Analysis Drivers 22 

1.3 Control Variables 29 

2.0 DATA STORAGE SCHEME 39 

2 . 1 Overview 39 

2.2 Memory Allocation Subprogram 40 

2.3 Counters and Pointers 96 

3.0 TOE FILE SYSTEM 104 

3 . 1 Overview 104 

3.2 User Interface 105 

3.3 Restart File 136 

3.4 Post-Processing Data File 149 

APPENDIX Subroutines A-l 


(ii) 


I 



0.0 IMTODUCTION 


^ MHOST program has evolved from a small finite element code for 
J i mOVatlve ldeas 1111:0 a versatile package usable as a 
dev ® 1 °F ment t001 111 solid and structural mechanics. Several 
code developers have worked on this program at various times over four 
years; more than 47,000 lines of extensively commented Fortran 77 code now 

the cSe^pE^r Sih dOCUment 1 dfiSCril3es ^ eternal architecture of 
users°can 18 plaCed here on *** facilities by which 

■“ idsas such m di «-« 

Hiese’lib^l2 t a^: three llbraries P 13 ^ a central tole in the MHOST code. 

code??n e J^f? i i il:,raIy :^ Ato ° St 311 0,8 elaiEnt specific operations are 
** f^ 113 library with a ccmmon interface subroutine. Note that the» 

Ml^r code rs written based on the mired iterative sol£L SSe^^Jhe 

for mm» nary is accessed significantly more often have than in the case 
for conventional displacement method codes. 

library ‘ A11 ^ constitutive equations built into the 
MHOST Program are accessed through an interface routine for the material 
library. The nodal evaluation of the constitutive equation! iftte^SS 

..V . lve u f lon process enables this operation to occur independently of 
the loop structure for the element formulation. independently of 

SOl V t f° n ^goritl™ library. The MHOST code uses a number of modem 
S ? 1U i 10n a l gorithms 31x1 f” 0 tYP 63 of solvers for a linearized 
f?!it-o of al<3 ? b 5 aiC options. These options are accessed directly from the 
finite element driver routines; fron a programning point of^iew ?he 

as oSS lite3Iy n ° t 33 clearl y identifiable 

0 . 1 Program Architecture 

■ci„-^ Thfi 1 MH0ST program f s designed and constructed to perform inelastic 
finite element computations in a reliable manner. A number of analysis 
iver routmes are coded to perform individual clearly defined tasks, 
nter-relations between analysis tasks are controlled by the execution 
supervisor s ubpro g ram and the utilities attached to it. All three libraries 
discussed briefly in the previous section are executed by each analysis 

r ^ 1J } e - The Program architecture of the MHOST program is 
illustrated In Figure 1. 
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Figure 1 Architecture of MHQST Program Version 4.2 
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Tte concept of multiple-drivers prevents users from ccmbininq 
unreasonable options, and avoids program troubles. Also this codinq 

allCT ^. cod i developers to add new analysis capabilities without 
affecting existing functions of the MHOST program. 

The nonlinear finite element computations are arranged in a nested loop 

!£”;*• i 00 ^ which contro1 ^ algorithmic operations are ? 

coded in the analysis driver routines, while the inner loops involving 

5^ ad ^ ressing are cod ed in the element assembly suhnodules, a 
level below the analysis drivers. 

mL- f0a H u " °f is all information is stored at nodes. 

nodal database resides in the lower address of working 
space in the blank common block. The storage allocation for this nodal ^ 

1S S? 113117 ^dependent of analysis and solution algorithms and 
takes place before reading the finite element itodel data. 

Kir,v^? ie Jf ,rking SpeiCe re< 3 uired to perform the solution is allocated in the 
3 ? dreSS . of the same vrorking space. The allocation of this 
working space is analysis dependent and takes place inside of the finite 
element driver routine. 

0.2 Rules and Conventions 

Coding rules are established to maintain the readability and 
maintainability of the MHOST program. 

Subroutine names are selected as close as possible to a plain English word 
representing the operation performed by the subroutine. Because^ 
limitations set by the old Fortran standard of six characters, sate 
subroutine names can be cryptic. 

A special rule has been implemented for subroutines in the element library: 

SnnnmN Shape functions for elements consisting of mm-nodal points 
in nn-gecmetrical configuration. 

DnnrnmN . Cartesian derivatives for elements consisting of nm-nodal 
points in nn-gecmetrical configuration. 


nn 


Geometry 


2D 

AX 


Twd dimensional 
Axi-syirmetric 
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3D 

SH 


Three dimens ional 
Three dimensional shell 


Seme of the other roles are: 

The subroutine names with string IN are used for data read frctn 
the main input channel. 

The string INIT is used to indicate subprograms involving memory 
allocation, except for INITST which generates the initial stress 
terms in the stiffness equations. 

The string SUB appears in subroutine names for subroutines 
involving the subelement scheme and the local-global analysis. 

The subroutine names starting with U indicate user subroutines. 

Variable names are chosen as close as possible to a plain English word 
representing the information contained in the variables. Because of 
limitations set by the old Fortran standard of six characters, seme variable 
names can be often cryptic. 

Note that the implicit data types of Fortran specification are assumed. 
Variable names starting with I, J, K, L, M and N are integers except for 
those specifically declared as logical variables. 

Seme of the variable name conventions are: 

The string MAX is used for the maximum number of entries in 
adjustable dimensioned arrays. 

The string NEL is used for the actual number of entries in 
adjustable dimensioned arrays containing element related 
information. 

Statement Numbers 

Four-digit statement numbers are used for better visibility of the Fortran 
program listing. Codes which are ported from other software do not 
necessarily follow the conventions defined below. 

The format statements referred from the read statements are labelled by 
statement numbers from 1000 to 1999. The format statements referred from 
the write statements are labelled by statement numbers from 2000 to 2999. 
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Ends of DO loops are labelled by statement numbers from 5000 to 5999. 
Statements to which control is transferred by the conditional GO TO 
statements are labelled by statement numbers from 8000 to 8999. 

Efforts have been made to avoid arithmetic IF and GO TO statements in the 
MHQST code. Instead the block IF structure is implemented wherever 
possible. Note that this approach has made the code incompatible with 
Fortran 66 compilers. 

0.3 Subroutines and Ccmmon Blocks 

All the subroutines included in the MHOST program Version 4.2 are listed 
below in alphabetical order: 


ACCLIN 

ADAPTC 

ADD 

ADDBAN 

ADDINV 

ADDPUL 

ASMVEC 

ASSEM1 

ASSEM4 

ASSEM5 

BANDER 

BANNER 

BASPSN 

BASPST 

BEAMIN 

BPGSLH 

BFLQAD 

BDCK01 

BODYIN 

BOUND1 

BOUNDN 

BOUNFR 

BPSTRS 

BREAD 

BSOLID 

BTBEAM 

BWRITE 

CENMAS 

CENTAX 

CENTBM 

CHCHAR 

CHKELM 

CNODEL 

CNSMAS 

CQMPDF 

CQMPIN 

CQNJUG 

CQNNIN 

COPY 

COPYCH 

COPYSD 

CORDTR 

CPXBK2 

CPXDIV 

CPXPOR 

CPXMUL 

CRPLAW 

CRPSTN 

D2D09N 

D3D08N 

DASHIN 

DAT1 

DAT5 

DATBMS 

DATIN1 

DATIN2 

DAT0U1 

DATCXJ4 

DBM02N 

DECINT 


ADAPT'D 

ADAPTS 

ADDIAG 

ADDINC 

ADDSMU 

ANPLAS 

ASSEM2 

ASSEM3 

ATTRIB 

BACSUB 

BASAXS 

BASEIN 

BASSQL 

BAXSYM 

BFGSRH 

BFGSVW 

BMSTRS 

BNDTRM 

BOUND2 

B0UND3 

BOUNIN 

BPSTRN 

BSHDKQ 

BSHELL 

BUCKLE 

BULKIN 

CENT2D 

CENT3D 

CENTSH 

CHARIN 

CLENUP 

CLOSEF 

CNSTNM 

CQLRED 

COMPRO 

CCNDSE 

CQNTIN 

COORIN 

COPYDS 

COPYIN 

COROLTT 

CPXBK1 

CPXEXC 

CPXFAC 

CPXREA 

CPXRES 

COTHEL 

D2D04N 

D3D27N 

DAMPIN 

DAT2 

DAT3 

DATCG1 

DATER 

DA3TN3 

DAT0H1 

DAX04N 

DAX09N 

DECOMP 

DECREA 
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DEFGUP 

DERIV 

DIAM 

DIRECT 

DISPIN 

DISTIN 

DIV2Q2 

DIV2X2 

DMATIN 

DMPING 

DOT 

DSH04N 

DSHELL 

DSLQAD 

DUPLIN 

DXCUT 

DYNAMO 

DYNAMT 

DYNOP 

EIGENV 

ELVULV 

EQVC 

EQVS 

EQVSTR 

ERROR 

ETRANS 

EXTEIN 

FESCOJ 

FILINT 

FILL 

FIRST1 

FIXINT 

POLO IN 

FORRES 

FREDCM 

FREPOR 

FRNTBL 

FRNTOP 

FRONIB 

FRONTF 

FRCNTR 

FRONTS 

FRONTW 

GAUSSP 

GEM02N 

GENCOR 

(3NNOD 

GEOMAT 

GETBSP 

G02GL0 

G02R0T 

GRAV2D 

(3RAV3D 

GRAVAX 

GRAVBM 

G^AVSH 

GSH04N 

HARMIN 

HEAD 

HQLECR 

HQLEDF 

HOLEIN 

HOLELM 

HOOKBM 

HOOKLW 

HOST 

ICLEAR 

INCRIN 

INCSBC 

INIMDP 

INITDF 

INITFR 

INITI1 

INITI2 

INITIN 

INITSE 

INITST 

INRDIR 

INRFRC 

INSIDE 

INIDYN 

INTERP 

INTINT 

INTSQQ 

INV3 

INVERT 

ITERIN 

JACOBI 

JT 

KEY 

L2NORM 

LAXSYM 

LAYXNT 

LELAST 

LETCMD 

LEVEL 

LINES 

LINES2 

LINESR 

LINESU 

LMPMAS 

LOCVEC 

LPSTRN 

LPSTRS 

T .SH kl iT i 

LSQLID 

LTBEAM 

MAI® 

MAIN 

MASMAT 

MASS IN 

MATINV 

MATCNE 

MATPRT 

MATSUM 

MAXCQN 

MAXIM 

MESURE 

MID 

MIDDLE 

MKFAKE 

MODAL 

MULT 

MULTT 

NEWACC 

NEWADD 

NEWMRK 

NEWRHS 

NEWVEL 

NODPRE 

NODSTR 

NOTION 

NRMNRM 

NUL 

NULINT 

NULNRM 

OPTEST 

OPTIM 

ORIENT 

OUTPRO 

PAffi 

PAGE2 

PAGE2S 

PAGE3 

PAGE3S 

PERDIN 

PERDOP 

PJOOP 

PLASTD 

PLASTS 

FNITNM 

PQLD2D 

PQLD3D 

POLICE 

POSTEN 

POSTOU 

POSTPR 

PREFIN 

PRELEM 

PRESET 

PRESIN 

PRFRNT 

PRINCV 

PRININ 

PRUJOl 

PRIN02 

PRIN03 

PRINOU 

PRINSU 

PRINIM 

PRINTS 

PRNSHL 

PRNTEL 

PRNTNO 

PRTERR 

PRWARN 

PSDIN 

PULS IN 

PUTDUP 

PUTTIE 
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QNODEL 

QPSTRS 

RAMDSK 

RATIO 

REASPR 

REDIAG 

RESCHK 

RESCCN 

RESEQ2 

RESID 

ROTBAK 

ROTCMT 

ROTTEN 

ROW 

RTFQLF 

RUNCMD 

S2D09N 

S3D08N 

SBC IN 

SCALER 

SELECT 

SETCCM 

SETQMD 

SETRMS 

SHCHEI 

SHTRAN 

SMASTR 

SMULT 

SQLOT2 

SQLUIN 

SPRIIN 

SPSTRS 

STCKIO 

STIFF 

STRING 

STRIPB 

SUBALC 

SUBCHK 

SUBELV 

SUBFEM 

SUBINC 

SUBINT 

SUBSOl 

SUBS02 

SUBST1 

SUBSTN 

SUBVAL 

SUPER 

T2D04P 

T3D08N 

TFULL2 

THRSTN 

TIMOUT 

IMLILT 

TRACIN 

TRANIN 

TRANSP 

TSH04N 

TYING2 

TYING3 

UBOUN 

UCOEF 

UFORCE 

UFXORD 

UPRESS 

UPIX 

UTEMP 

UTHERM 

VELCIN 

VMULT 

VTMULT 

VULVRG 

WALKEQ 

WKSLP 

YIEL 

YIELIN 


QUIT 

R3DTEN 

RBF 

READEX 

RELDPG 

RET PAD 

RESDYN 

RESEQ1 

RESQLV 

RESTRT 

ROTPOR 

ROTPRF 

RSHELL 

RTBEAM 

S1D02N 

S2D04N 

S3D27N 

SAVER 

SEARCH 

SEARCI 

SEIHFN 

SETQLR 

SETUP 

SHIFIN 

SIMPLE 

SK 

SNODEL 

SQLUT1 

SCLVER 

SOLVIT 

SSQLID 

STATIC 

STRAIN 

STRESS 

STRSBC 

STRUCT 

SUBDER 

SUBDIV 

SUBGLB 

SUBGLD 

SUBRES 

SUBSIN 

SUBSOL 

SUBSPC 

SUBSTS 

SUBT 

SYSEQN 

T2D04N 

TBM02N 

TEMP IN 

TIMEIN 

TIMER 

TMULTV 

TNSPRD 

TRANS 1 

TRANS2 

TSHIFT 

TYING1 

TYININ 

TYPEIN 

UCOOR 

UDERTV 

UHOCK 

UNITST 

UPTXL 

USXX 

VALINT 

VDSKIO 

VSH04N 

VSWELL 

WMULT 

WALCON 

WORKIN 

WRITEX 


All the cannon blocks included in the MHOST proqram 
belcw in alphabetical order: 


Version 4.2 are listed 


CaMM3N / ADDVAL / ISPRI ,KSPRI ,IDASH ,KDASH .IMASS KMAS C 
COMMON / AIOEM / ICREAD, ILPRNT , JLPRMT, IGONSL, IPOSTF , ISCR2 
1 IPIOTB, IRSTRT, JCREAD, IPVARS, IPSETS, IFILE 


/ 

t 
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2 

COMMON / AOTOIN 

1 

COMMON / BODYFR 
COMMON / BSECT 
COMMON / CQNTRO 

1 

2 

3 

4 

5 

6 

7 

8 
9 
+ 

COMMON / CCMPND 

1 

COMMON / COUNT 
COMMON / CTITLE 

1 

COMMON / DAMP 
COMMON / EIGEN 

1 

COMMON / MODSUP 
COMMON / ELEMEN 

1 

COMMON / ELTYP 

1 

COMMON / ERRORS 
COMMON / FREE 

1 

LOGICAL 

COMMON / HARMON 

1 

2 

COMMON / INCCQN 
COMMON / MACHIN 
COMMON / MAXIMA 

1 

2 

3 

4 

COMMON / LOUBIN 

1 


/ 

/ 

/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/ 


/ 

/ 

/ 


/ 


PI ,LINE ,LINE2 

CURPER / TOTPER,ARCLEN f A3XOLER,BrQLER,CTOLER, 
JADAP ,NCREEP, SCALE 
POINTS ( 3, 2) 

IBSECT,KBSECT 

JEND , JITER , JTEMP ,JPRINr,JP ,JSUB , 

JINC , JREST , JSAVE , JREDIM, JAUIO ,JPOST , 
JBACK , JOPTIM , JCREEP , JDIST , JCONST, JDYN , 
NCNISO, ITHERM, ITRIG , IDYNM , JREPOT, JTANGE, 
JIHERM, JFORCE , JOTEMP , JUOOEF , JDISTS , JUHOCK , 
JDERTV, JUBOUN,IDSTOP,INrSTR, JPLAST, JBAND , 
JFRONT, JDEFOR, JEMBED, ITEST ,JDISP , IFBFGS, 
IFSCNT, IFLINE, IFPRNT, ICCMPS, IPCOU, JEIGEN, 
IFBCDY, IFGRAV, IFCENT, JDAMP ,LDYN ,ISTAT , 
JFDSXX, JISTIF, JCENIM, JFINIT, JLAR£3I, JFQLOW, 
JWKSLP, JPRES , JCDUM2 , JCDUM3 
NXSTAT , NXSQLV , NXINIG # NXMXL , NXBCKL , NXSUPR , 
NXREQN,NXDUM1,NXDUM2,NXDUM3,NXDUM4 
LININC , LINTOT , NOECHO 

TITLE ( 20) ,IDAT ( 5) , IDATE2 , ICLOCK, 

IFCRAY 

DAMPF(3) 

IEQ^VC, IGNMS , IQMEG , IMOENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED, IMDAM , IOMEQD 
IMPORO , IMDISO , IMVELO , IMFOR1 , IMDIS1 , IMVEL1 
IC , IEL ,IDF , JLAW ,IPAIH ,IASSEM, 

JRULE , JCART , JEL009, JEL010, JELOll, JEL012 
NELCRD,NEINFR,NEINCO,NE[STR,NELCHR,NELPR , 
NET, TNT, NELLY ,NELLAY,NDI ,NSHEAR,NELCMP 
IERR 

IA ( 80) ,IBEGIN( 16),ILENGr( 16), 

NSTRIN, IS , ICQL ,NEW 

NEW 

QMEGH , IHARM ,KHARM ,CMEC$ ,IBASE ,KBASE , 
ICNFOR, ICMFOR, ICMRES , ICHHFN, ICBHFN, ICBEXC , 
ICCMAT 

FACTOR, INCFLG( 21) 

IDP 

MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS, 
MAXLAY,MAXIOT,MAXWRK,MAXNLV,NSUMAX,MAXCMP, 
MAXBSP,MAXGMR,MAXTEM,MAXEEM,MAXLWK,MAXEMr, 
MAXFRN,MAXBET,MAXVAR,MAXSET,MAXEAN,MAXORD, 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
JLOUB , JINTER, JEXTRA, JWEIQi, JSUBRE , JISIRN , 
JCITER , JHRGLS , JGRAM ,LOUB03,LOUB04,LOUB05 
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1 

2 

3 

4 

5 

6 
7 


CCMMDN / PERPAR 

1 

CCMMDN / PERPTR 


1 

2 


/ PERIOD 
/ POSTPN 
/ POWER 


1 

2 

3 

4 

5 

6 
7 


CCMMDN / PAGCNT / NPAGE 1 , NPAGE2 

CCMOJ t PARAM / NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX 

NIRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB 

NPRINT,NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 
NSHIFT , NSEPGS , NGMRS ,NSPRI ,NMASS ,NDASH , 
NDYNMD,NSBNC ,NSUPER,NHARM ,NBASE ,NINC , 
NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUMEH, NDIMEN, NMUNIT , NPAR4 0 , NPAR4 1 , NPAR42 , 
NPAR4 3 , NPAR4 4 , NPAR4 5 , NPAR4 6 , NPAR4 7 , NPAR4 8 
/ IPTYPE( 32) ,NPTYPE,NPVARS,NPSETS,JPERT , 
NPVCGN,NPP008,NPP009 f NPP010,NPP011,NPP012 

/ IMEANS , ISTDEV, IPDATA, IVTYPE, ISKIP , IREDEF, 
IDINCO , IREACO , IRESDO , IDGRP , ISTIFO , IMASSO , 
IPP013,ICME(M,ICMEGP,ICMEGK,IETAK ,IZETAK 
/ IXCOOR, IXCHAR, IXFORC , KXPORC , IXDIST, KXDIST , 
IXTEMP , JXTEMP , IXBEAM, IXFVEC , IXSPRI , KXSPRI , 
IXPRES,IXPREF , IXP015,IXP016, IPWBEG, IPWEND 
/ JPEROD( 2 ) , IPDISP, IPPORC, INDISP, INFORC 
/ IPOINT, JP0INT,KP03M’ f NDAIA ,PRNTBF( 6 ) 

/ IELPHI , IELTNM, IEPSMD, ISIGMD, IHFN , IHPC 
IFBP ,ISPP , ISFF f ISQQ ,1000 ,ITNM ' 
IPSF , IPSD 

/ NRFPTS,NRFSDS,NRFLIN,NRFIMr,NRFREA,NRFSEL, 

NRPCMP , NRFDOF , NRFSIZ , IHFEND, JRPTYP , JOOUNT 
JCFLAG, JRFSEL, JRFDGM, NVKEPT,MDRE 
/ IRFPTS , IRFINT, IRFMNR, IRFSDR, IRFSEL, IRFSET, 
IRFMNV, IRFSDV, IRFPTV,IRFVEC, IRFVAL, IRFNRM, 
IRPCOR, IRFID , IEFVJRK 
/ IPULSE , KPULSE , IPDTIM, IPDFOR 
/ MANVAR( 7 ) , JPR ,ICCM1 ,NCQMP 

/ IELPRM, ITYP ,INEL ,ICHAR ,IPRES ,ISTRS 
ISTRN ,ICOP , IPRIMT , IPOST ,IDIST , ILEAN , 
IBPRES , IENORM, IMDNIT, IST116 , IST117 , IST118 
/ INCO , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
/ IKBC ,ITI , ITR ,ITRAN ,ITRAC .TEXT , 

I SBC , ISBCR 

/ IDINC , IDIOT , IPORCE, IRESID, IWINOD, ISIGNO. 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS , IISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTOO, ICSTND, ITSTNO, 

IISINO, IISNNO, IIPSNO, IICSNO, IITSNO, ICWAT 

IDMINO, IEQCST, ICMENO, IICMNO, ITDSNO, IVSWIO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 , IDSITR, ISWELL, 
IEQCSI , IPREF , IDSX3 , IYIEID , IDFINC , IDFTOT , 
IST443, IST444 , IST445 , IST446 , IST447 , IST448 
/ IRL , IREAC , IES ,IAB ,IBQM ,ISRL , 


CCMMDN / PERDAT 

1 

2 

CCMMDN 
CCMMDN 
CCMMDN 

1 
2 

CCMMDN / PREPAR 

1 

2 

CCMMDN / PREPTR 

1 

2 

CCMMDN 
CCMMDN 
CCMMDN 

1 
2 

CCMMDN 
CCMMDN 


/ PULSES 
/ RESULT 
/ START1 


/ START2 
/ START3 


CCMMDN / START4 


CCMMDN / START5 


NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 


NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 
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1 

2 

3 

CGMMDN 

1 

2 

3 

4 

5 

6 

7 

8 

CCMMDN 

CQMM3N 

1 

2 


CQMM3N 

1 

CQMM3N 

CQMMDN 

1 

0QMM3N 

COMMON 

COMMON 

COMMON 

COMMON 

OCMMON 

OCMMON 

1 

CQMM3N 

1 

2 

3 

COMMON 


/ 


/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/ 


IBTLC , ISKM , ILAST ,IRLB ,IDINCP,IFORIN, 
IOP , IDAM , IMASMT, IDIAG ,HJPTRI,ICOLPT, 
IMASDI ,00^^,151521,^522 , IST523 , IST524 
START6 / IELV ,ICOR ,ISIG ,IEPS ,IWNCD ,ISNCD , 
IENOD , IETM , ICH ,IPP ,IXRL ,IXIRL , 
IXP , IXK ,KPSTRN,KCSTRN,KTSTRN,KISTRS, 
KISTRN,KIPSTR,KICSTR,KITSTR,KPSTNO,KCSTOO, 
KTSTNO , KI S1N0 , KI SNNO , KIPSNO , KICSNO , KITSNO , 
IMASNO,IMNCD , IEQPST , IEQPSI , KEQPST , KEQPSI , 
KEMAT ,KEMINO,KTDSNO,KITDST, IXM ,IXC , 
IVEUI , IAELM , IMASEL, KYIELD , IST647 , IST648 , 
IST649 , IST650 , IST651 , IST652 , IST653 , IST654 
START7 / ICCN ,IKBCR , ITRACR, ITRANR, IEETA. , IDET 
STAFT8 / KGEPS ,KIGEPS,KGSIG ,KIGSIG,KGTDST, 

IGEPNO, IIGENO, IGSINO, IIGSNO, IGTDNO, 

KGEPNO , KIGENO , KGS INO , KIGSNO , KGTONO 
START9 / KEQC!SI,KIQMN0,KSWIjN0,KIMPN0,KTDFN0,KD11MMY', 
KEQCST,KQMENO,KVSWIO, IST910, IST911 , IST912 
SUBELM / ISUBEL, ISUBNP, ISUBPT,NSDATA, ISUBTY, I EMBED 
SUBTYP / NSUCRD,NSUNFR,NSUNCD,NSUSTR,NSUCHR,NSUPR , 
NSUINT , NSULV ,NSUTEM,NSUNDI,NSUSHR, NSUIDF 
SUBSTR / NLVSUB( 10),NFRSUB( 10) 

SHIFT / ISHIFT,KSHIFT, IFREQ ,LFREQ ,NOFFST,NFOUND 
TIME / TIMINC,TOTINC,RUNTIM 

TIMLDC / CPUO 

TMARCH / DALPHA, DEETA. ,DGAMMA 

TRANSF / CTRANS( 9),XJAG0B( 9) 

TOLER / RELERR,ABSERR,REACMX,RESIMX,DISERR,DISTOR, 
ENGTOR, ENC2®M 

VRTDSK / ISETUP,MAVAIL,LENREC,NUMREC,LENBLK,NUMBLK, 
IVPAGE , NVPAGE , IVSTRT, IKRO ,UCOL ,IPIVCO, 
IHEDER, IFRNRH, IPIVOT, IPIVRO, IPVKOL, IVEND , 
ISRECD, IERECD 

ZPRINT / MAXCOL , NELCOL , IAYPRT , JTENSR 


Ifost of the variables and arrays in the cannon blocks are used to store 
control variables and counters. The exceptions are START1 to START8 which 
contain sill the pointer values for working storage allocation. 


0 . 4 System Dependency 


The MHDST Version 4.2 program is written in Fortran 77, as closely as 
possible to ANSI specification. The code has been developed on the PRIME 
9955 under PRDCS F77 Rev. 19.4.2. 
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In the original version, integer and single precision real word lengths of 
32 bits are assumed and double precision is specified by using 

IMPLICIT REAL* 8 (A-H, 0-Z) 

for all real variables except for vrorking storage arrays. The ratio of 
integer and double precision vrord length is stored in the variable IDP in 

1116 ValUS 15 "* at 2 “ the main program o£ the 

The file opening and error handling procedures are system dependent The 
subroutine rarmr is called free, the main program t?perfo^?S 
functions. An example of this routine for the PRIME version is included 

C=SUBROUTINE=INriNr CALLED FROM THE MAIN PROGRAM 
SUBROUTINE INTINT 


********** 



IMPLICIT REAL* 8 ( A-H , 0-Z ) 
REAL* 4 RWORK 



************** 


COMMON / VRTDSK / ISETUP, MAVALL, LENREC,NUMREC,LENELK,NUMBLK, 
1 TVPAGE,NVPAGE , IVSTRT, IKRO ,ILCOL ,IPLVCO, 

Z ^tHEDER, IFRNRH, IPIVOT, IPIVRO, IPVKQL, IVEND , 

3 ISRECD, IERECD 

CHARACTER*20 NAME IN , NAMEPR , NAMEME , LOGFIL NAMESC 
1 NAME08 , NAME09 ' 


DEFINE TOE BUFFER SIZE FOR SCRATCH FILE 

MAVALL = 3 000 

NBUFFR = MAVALL *4+12 



********** 


OPEN FILES : NAMES READ FROM A SPECIAL FILE 'T$NAMES ' 
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0PEN( 

UNIT 

= 18 

/ 

FILE = 'T$FILES' , FORM = 'FORMATTED ' 

READ( 

18 

r 

1000 

) 

NAME IN 


READ( 

18 

t 

1000 

) 

NAMEPR 


READ( 

18 

i 

1000 

) 

NAMEME 


READ( 

18 

r 

1000 

) 

LOGFIL 


READ( 

18 

t 

1000 

) 

NAMESC 


READ( 

18 

t 

1000 

) 

NAME08 


READ( 

18 

t 

1000 

) 

NAME09 


OPEN( 

5 

t 

FILE 

= 

NAMEIN ) 


OPEN( 

6 

/ 

FILE 

= 

NAMEPR ) 


OPEN( 

19 

t 

FILE 

— 

NAMEME ) 


OPEN( 

8 

r 



FORM = 'UNFORMATTED' 

r 

1 



RECL 


= 256 , FILE = NAME08 

) 

OPEN( 

9 

f 



FILE = NAME09 

) 

OPEN( 

12 

t 



FORM = 'UNFORMATTED' 

/ 

1 



RECL 


= NBUFFR , FILE = NAMESC 

) 

CLOSE ( 

18 

t 

STATUS 

= 'DELETE' ) 



c 

0 ********************************************************************** 
c 

1000 FORMAT ( A20 ) 

C 

Q iririciricir + iclcicitltitle + ieiritlciticiciticicitlcicirlticicltiriclticiclciticiciciti'ieiticic + itieicitieit+cltlticic'klticicit'k'k'k'k 

c 

c 

RETURN 

END 

On the PRIME a user will have to prepare a file called T$FILES in the 
working directory containing names of all the files to be opened as Fortran 
I/O units. 

On other systems, this operation can be performed either by issuing ccmmands 
at the operating system level or by duplicating the PRIME version approach 
directly in the MHOST program. 

Note it is recommended that on IBM machines the error and warning message 
print-outs be disabled for double precision floating point operations. This 
is due to the fact that the solution of an algebraic system of equations 
involves double precision variables with fictitiously large exponents . 
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uuuuua 


l^e real time clock and calendar routine and the CPU clock routine both 

Calls ** teP**H*3 on the mchSS S SrSL 

^tert. The organization of canmon block CTI'rn: in which the date and tim= 

c^lf X* ?' W « *“ Se 

,me foii ^^s SsS tr^^ i : i sihT :cu9h 


C SUBROUTINE DATER 

SUBROUTINE DATER ( IDAT, IDAT4 } 
C********* 

C 

C DATE ROUTINE FOR THE PRIME 
C 

C********* 

INTEGER* 2 ARRAYS ( 15) ,NUM,IDAT(6) 
DIMENSION IDAT4 ( 2 ) 

NUM=4 

CALL TIMDAT( ARRAYS, NUM) 

IDAT ( 1 ) =ARRAYS ( 1 ) 

IDAT ( 2 ) =ARRAYS ( 1 ) 

IDAT( 3 ) =ARRAYS ( 2 ) 

IDAT(4 ) =ARRAYS ( 2 ) 

IDAT ( 5 ) =ARRAYS ( 3 ) 

IDAT( 6 ) =ARRAYS ( 3 ) 

I0=ARRAYS(4) 

11=10/60 

12=10-60*11 

IDAT4( 1)=I1 

IDAT4(2)=I2 

RETURN 

END 


^A^ C ^i t teloSf rati0n “ sto P Ufied *° «» systan calls in SUBROUTINE 


C SUBROUTINE— HEAD C ALLED BY ' DATIN1 ' 
SUBROUTINE HEAD 

(VERNO , MONTH , JDATE , ILPRNT, ICONSL) 



**************** 


PICK UP TODAY'S DATE AND TIME AND THEN PRINT 'HOST' Trm ON THP 

^ OCCURS EVEN K5™ 
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★★★★*★★★★*★*******★★*★★★★★★ *★ ★**■***★★ *★★*★*•*•★ ★ ***★★★ *★★★★ * 

IMPLICIT REAL* 8 ( A-H , 0-Z ) 

*** 

COMMON / CTITLE / TITLE ( 20),IDAT ( 5) , IDATE2, ICLOCK, 

1 IFCRAY 

*★★*★★★*★***★★**★★★★★★★★★★★★★**★*★**★★★★★***★***★★★*★***★****★*★★★★★*★ 

CALL CLOCK ( ICLOCK ) 

CALL DATE ( IDATE2 ) 

WRITE ( HjPRNT, 1000 ) 

WRITE (ILPRNT, 2000) 

WRITE (ILPRNT, 3000) 

WRITE ( ILPRNT, 1100) IDATE2, ICLOCK, VERNO ,MOTH , JDATE , TITLE 
WRITE (ICONSL, 1001) 

WRITE (ICOJSL, 2000) 

WRITE(ICC»JSL,3000) 

*** THE FOLLOWING STATEMENT MAY CAUSE A WARINING MESSAGE WHEN EXECUTED 
*** CN IBM CMS WITH 'RUNHOST' PROCEDURE FILE. 

WRITE( ICONSL, 1100) IDATE2, ICLOCK, VERNO , MONTH , JDATE , TITLE 
WRITE( ICONSL, 1002) 

******************* ****************************** ********************* 

1000 PORMAT(1H1,20(/)) 

1001 PORMAT(20(/) ) 

1002 PORMAT(///) 

2000 FORMAT ( 


*2X, 'MA 

RC 

CC 

CC 

cccccccc 

CCCCCCCCC 

CCCCCCCCCC'/, 

*2X, 'MAZ 

ZRC 

CC 

CC 

cccccccccc 

cccccccccc 

CCCCCCCCCC'/, 

*2X, 'MAZZ 

ZZRC 

CC 

CC 

CC 

CC 

cc 

cc 

'/, 

*2X, 'MA ZZ 

ZZ RC 

CC 

CC 

CC 

CC 

CC 

cc 

V, 

*2X, 'MA ZZZ RC 
3000 FORMAT ( 

cccccccccc 

CC 

CC 

CCCCCCCCC 

cc 

') 

*2X, 'MA 

Z RC 

cccccccccc 

CC 

CC 

CCCCCCCCC 

cc 

'/, 

*2X, 'MA 

RC 

CC 

CC 

CC 

CC 

cc 

cc 

'/, 

*2X, 'MA 

RC 

CC 

CC 

CC 

CC 

cc 

cc 

'/, 

*2X, 'MA 

RC 

CC 

CC 

cccccccccc 

cccccccccc 

cc 

'/, 

*2X, 'MA 

RC 

CC 

CC 

cccccccc 

CCCCCCCCC 

cc 

') 


1100 FORMAT (///,2X,6HDATE: ,A8,3X,A8,//2X, 
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c 

c 

c 


1 'VERSION ',F3.1,' - DATED ' ,A4, ' , ' ,A4 ' , 1985 

*//,2X,20A4) 


t 

r 


****** 


RETURN 

END 


Siil to the CPU clock for the execution time are also system dependent 
SUBROUTINE TIME in the original PRIME version interfaces with thTsystem's 
clock and returns the time in seconds as a double precision real variable 


C SUBROUTINE TIMER 

SUBROUTINE TIMER (CU) 

c* * * * * * 

C 

C CPTIME RUNTIME FOR PRIME 
C 

c* * * * * * 

c 

IMPLICIT REAL*8 (A-H,0-Z) 
INTEGER*2 I(15),NUM 
NUM=15 

CALL TIMDAT(I,NUM) 
CU=I(7)+(I(8)/330.) 

RETURN 

END 


On the CRAY, this operation is simplified and performed at a routine one 
level nigher as: 


C=SUBR0UTINE=TIM3Ur UTILITY SUBROUTINE 

SUBROUTINE TIMX7T(IA1,IA2 / IA3,IA4,IA5,IA6) 


****************** 


OBTAINS AND PRINTS CPU TIME 


It************* 


IMPLICIT REAL* 8 (A-H,0-Z) 
DIMENSION NAME(6) 
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c 


COMMON / ALffiM 

1 

COMMON / CONTRO 

1 

2 

3 

4 

5 

6 
7 

COMMON / TIMLOC 


/ ICREAD,ILPRNT, JLPRNT,ICQNSL,IPOSTF, ISCRAF, 
IFLOTB, IRSTRT,PI ,LINE ,LINE2 
/ JEND , JITER , JTEMP , JPRINT, JP , JSIJB , 

JINC , JREST , JSAVE , JREDIM, JAUTO ,JPOST , 
JBACK , JOPTIM, JCREEP , JPRES ,JCONST,JDYN , 
NONISO, ITHERM, ITRIG , IDYNM , JREPOT, JTANGE, 
JTHERM, JFORCE , JUTEMP , JUCOEF, JPRESS , JUHDOK, 
JDERTV, JUBOUN, IDSTOP, IOTSTR, JPLAST, JBAND , 
JFRDNT, JDEPOR, JEMBED, ITEST ,JDISP , IFBFGS, 
IFSCNT , IFLINE , IFPRNT , I(XMPS 
/ CPUO 


C *** (2T 'DELTA' VALUES - CALL TO CARY LIBRARY SUBROUTINE 
C 

CALL SECOND ( CPU ) 

C 

IF( CPUO .EQ. 0.D0 ) CPUO = CPU 

CPU = CPU - CPUO 
C 

NAME(l) = IA1 
NAME(2) = IA2 
NAME(3) = IA3 
NAME(4) = IA4 
NAME(5) = IA5 
NAME(6) = IA6 
C 

CALL LINES ( 3,3) 

WRITE (ICONSL, 1010) NAME, JINC, JITER, CPU 
IF(CPU.NE.O.DO) WRITE ( ILPRNT, 1000 ) NAME, JINC, JITER, CPU 
C 

1000 PORMAT(//,2X,6A4,9HINCREMENT,I4,10H ITERATION, 13, 8H CPnME=,F9.3, 
1 4H SEC) 

1010 FORMAT (2X,6A4,9HINCREMENr, 14, 10H ITERATION, 13 , 8H CPTIME=,F9.3, 

1 4H SEC) 

RETURN 

END 


Tto be able to obtain a reasonably accurate estimate of the CPU time, it is 
reccrrmended that these routines be modified for the particular system on 
which the MHOST program is installed. 
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l.o CONTROL STRUCTURE 


nr^^Hfn vIf Pt K' , a . descri P tlon of major subprograms is given. This is 
3 u rief . n °5 e on ^ architecture of the MHOST program. The 
third section here is devoted to the definition of control variables 
appearing in the cannon blocks. 

1 • 1 Overview 

^architecture of the MHOST code is schematically shown in Figure 1. The 
execution supervisor routine (SUBROUTINE HOST) controls several analysis 
modules in a consistent manner. In Version 4.2 of the MHOST code a nair of 
subroutines, LETCMD and KUMCMD, have been added to check the consistency of 

^ t0 ^^ate internal flags for the selection of^ 

featured ^ ^tention here is to stop users from combining 

reatures of the program package not designed to be used together. 


C= 


SUBROUTINE-HOST C A L I ED FROM 'HOST: MAIN' PROGRAM 
SUBROUTINE HOST 

1 (RWORK , IWORK ,ISIZE ,VERSNO,M3NIH , JDATE ) 



★*★*★**★★***** 


IMPLICIT REAL* 8 ( A-H , O-Z ) 
REAL*4 RWORK 



*********** 


1 

2 

3 

4 

5 

6 

7 

8 
9 
+ 


COMMON / CONTRO / JEND 

JINC 


1 

2 


COMMON 

COMMON 

COMMON 


, JITER , JTEMP ,JPRINr,JP ,JSUB , 
, JREST , JSAVE , JREDIM, JAI7T0 ,JPOST , 
3BACK , JOPTIM, JCREEP,JDIST , JCONST, JDYN , 
NCNISO, ITHERM, ITRIG ,IDYNM , JREPCT, JTANGE, 
dTHERM, JPORCE , JUTEMP, JUCOEF, JDISTS , JUHOOK, 

JDERIV, JUBOUN,IDSTOP,D7rSTR, JPLAST, JBAND , 

JFRONT, JDEFOR, JEMBED, ITEST , JDISP , IFBFGS, 
IFSCNT, IFLINE, IFPRNT, IGCMPS , IPCQNJ, JEIGEn! 
IFBODY , IFGRAV, IFCENT, JDAMP ,IDYN ,ISTAT , 
JFDSXX , JISTIF , JCENIM, JFINIT, JLARGE , JFQLCW, 
JWKSLP, JPRES , JCDUM2, JCDUM3 
/ ICREAD, ILPRNT, JLPRNT, ICCNSL, IPOSTF, ISCRAF, 
IPIOTB, IRSTRT, JCREAD, IPVARS, IPSETS, IFILEX, 
PI ,LINE ,LINE2 

/ ADDVAL / ISPRI ,KSPRI , IDASH ,KDASH ,IMASS ,KMASS 
/ IMARCH / DALPHA,DBETA ,DGAMMA 
/ AUTOIN / CURPER,TOTPER,ARGLEN,ATOLER,BTOLER,CTOLER, 


COMMON / ALGEM 
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c 

c 


1 

COMMON 

COMMON 

1 

2 

COMMON 

COMMON 

1 

COMMON 

COMMON 

COMMON 

1 

2 

COMMON 

1 


COMMON 

1 

2 

3 

COMMON 

1 

2 

3 

4 

5 

6 
7 


COMMON 

1 

2 

3 

4 

5 

6 
7 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

DATA. 

DATA. 


/ 

/ 


/ 

/ 

/ 

/ 

/ 


/ 

/ 


/ 


/ 


/ 

/ 

/ 

/ 

/ 

/ 


PERIOD / 
POWER / 


PULSES / 
EIGEN / 

ERRORS / 
MDDSUP / 
HARMON / 


LOUBIN / 
STARK / 


START4 / 


PARAM / 


BSECT / 
INGCON / 
MACHIN / 
SUBSTR / 
SUBELM / 
SHIFT / 
IZ / 
MAXSUB / 


JADAP ,NCREEP, SCALE 

JPEROD( 2 ) , IPDISP, IPPORC, INDISP, INFORC 
IELPHI , IELTNM, IEPSMD, ISICMO, IHFN ,IHFC , 
IFBP ,ISPP , ISFF , ISQQ ,ICQQ , ITNM , 
IPSF , IPSD 

IPULSE , KPULSE , IPOTIM, IPDFOR 
IEGNVC,IOJMS , ICMEG , IMOENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED, IMDAM ,ICMECD 
IERR 

IMFORO , IMDISO , IMVELO , IMPOR1 , IMDIS 1 , IMVEL1 
OMEGH , IHARM ,KHARM ,OME® , IBASE ,KBASE , 
ICNFOR, ICMFOR, ICMRES, ICHHFN, ICBHFN, ICBEXC, 
ICCMAT 

JLOUB r 3 INTER / UEXTRA/ JWEIGH r JSUHRE f J TSTRN / 
JCITER, JHRGLS , JGRAM ,DOUB03,LOUB04,DOUB05 
IRL , IREAC , IES ,IAB ,IB®1 ,ISRL , 

IBTLC , ISKM , ILAST , IRLB ,IDINCP,IFORIN, 
IOP ,IDAM , IMASMT, IDIAG ,IUPTRI, ICOLPT, 
IMASDI , IMASUP , IST521, IST522 , IST523 , IST524 
IDINC , IDIOT , IFORCE , IRES ID , IWINOD , ISIGNO , 
IEPSNO, IPSTRN, ICSTRN, ITSITOI, IISTRS, IISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTOO, ICSTNO, ITSTNO, 
IISTNO, IISNNO, IIPSNO, IICSNO, IITSNO, iraffiT , 
IEMtNO, IEQCST, ICMENO, IICMNO, ITOSNO, IVSWTO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 , IDSITR, ISWELL, 
IEQCSI , IPREF ,IDSX3 ,IYIEI£),IDFINC,IDFrOT, 
IST443 , IST444 , IST445 , IST446 , IST447 , IST448 
NTYPE ,NELEM ,NNCDE ,NBC ,NTIE ,NMAX , 
NIRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 
NPRINT,NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 
NSHIFT , NSBFGS , NC3®S ,NSPRI ,NMASS ,NDASH , 
NDYNMD , NSBNC , NSUPER, NHARM ,NBASE ,NINC , 
NITER ,NPSPK,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUM0H,NDIMEN / NM0NIT,NPAR40,NPAR41 / NPAR42, 
NPAR43 ,NPAR44 ,NPAR45 ,NPAR46 ,NPAR47 ,NPAR48 
IBSECT , JBSECT 
FACTOR, INCFDS( 21) 

IDP 

NLVSUB( 10) ,NFRSUB( 10) 

ISUBEL, ISUBNP, ISUBPT,NSDAIA, ISUBTY, IEMBED 
ISHEFT,KSHIFT, IFREQ ,LFREQ ,NOFFST,NPOUND 
1H / 

10 / 
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c 

WRITE (ICQNSL, 2000) IZ 
2000 FORMAT(Al) 

c CALL TIMDUT( ' BE', 'GIN ' , 'EXEC' , 'UTIO' , 'N, ') 

C *** JOB PARAMETER INPUT 
C 

CALL DATIN1 

2 ( S RK 'SS? ' ISIZE ^VERSNO,>mm , JDATE ,NELEM ,NNODE 

3 JSL ,MrRAN fNnac - NP0ST ,NLVSUB,NFRSUB, 

a NEXT . .. /JDYN ' JTEMP /NPRINT,JREST ,JINC ,NINC JinriR 

c ^NTER, JEXTRA,JWEIC3I,NSTRBC,NrYPE ,MAXSUB, ILAST "jSUB 

5 , ™ ' ISTAT /ITEST , JOPTIM^ JCREEP , JDIST Sso' 

7 NDYM© , IDYNMD , NPOSMD , ITHERM, JCCNST, NDUP ,JPEPOT JIANGE* 

9 ,NCREEP,ATOLER* 

, BT^^,CT3LER, JPOST , INTSTR, JBAND , JFRQMT, JDEFOR.NGMRS 

l , NBSECT, JDISP ,NSHIFT,NSUPER, JSUBRE, IFBFGS NSPRI ' 

NDASH ,NMASS ,NSBFGS,IFSCNT,IFLINE,IFPRNr NHARM 'oMEGH ' 

4 ™^'*J^? ,LDYN / JF DSXX,JISTIF,JCENIM,NHARD , JFINIT 

c *** SET THE RUNSTREAM FLAGS FOR MULTIPLE OPTION EXECUTIONS *************** 
CALL LETCMD 

c 2 1 ^S5S:S53^ ,,,a, ' ,, ^"» 

C *** BULK FINITE ELEMENT DATA INPUT 

C IF ( JREST ) IS SET ZERO, START FROM SCRATCH AND THE DATA IS READ 

C IF ( JREST ) IS N3.-ZER0, TOE 

c ****^*”^**jr™********^***"**************************** 

c IPFIO =0 ONLY INITIAL CONDITION IS PRINTED 

C REST ° F THE M3DEL DEFINITION DATA ARE 

^ 2 0F THE INFORMATICS IS PRINTED 
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IPFLG = 1 

IF( IDYNM .EQ. 1 .AND. JDYN .EQ. 2 ) IPFLG = 2 
****+*+************+******************************+***+*************** 

IF( JREST .EQ. 0 ) CALL BULKIN ( RWORK , IWORK , ISIZE , IPFLG ) 
*** RESTART FILE INPUT *** NOT SUPPORTED IN VERSION 2.0 ************** 
IF( JREST .NE. 0 ) CALL RESTRT ( RWORK , IWORK , ISIZE ) 

********* ********* *************+ ****+****+****** **+**+**************** 

CALL FINITE ELEMENT SOLUTION DRIVER ROUTINES 

it********************************************************************* 

DO 5000 ICOMPD = 1 ,NCCMPD 

CALL RUNCMD 

1 ( ICOMPD, IFSTAT, IFSQLV, IFINTG, IFMODL, IFBCKL, IFSUPR, IFREQN, 

2 IFDUM1 , IFDUM2 , IFDUM3 , IFDUM4 , IERR ) 

********************************************************************** 
IF( IFSTAT .EQ. 1 ) THEN 

CALL STATIC ( RWORK , IWORK , ISIZE ) 

C 

ELSE IF( IFSOLV .EQ. 1 ) THEN 

CALL FRONTS ( RWORK , IWORK , ISIZE ) 

C 

ELSE IF( IFMODL .EQ. 1 ) THEN 

CALL MODAL ( RWORK , IWORK , ISIZE ) 

C 

ELSE IF( IFSUPR .EQ. 1 ) THEN 

CALL SUPER ( RWORK , IWORK , ISIZE ) 

C 

ELSE IF( IFBCKL .EQ. 1 ) THEN 

CALL BUCKLE ( RWORK , IWORK , ISIZE ) 

C 

ELSE IF( IFREQN .EQ. 1 ) THEN 

CALL FREDCM( RWORK , IWORK , ISIZE ) 

C 

ELSE IF( IFINTG .EQ. 1 ) THEN 

CALL DYNAMT( RWORK , IWORK , ISIZE ) 
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ELSE IF( IFDUM1 .BQ. 1 ) THEN 


CALL DYNAMO ( RWDRK , IWORK , ISIZE ) 


ELSE IF( IFDUM2 .EQ. 1 ) THEN 


CALL FESOLN( RWDRK , IWDRK , ISIZE ) 


ELSE 


CALL QUIT 

1 ( 'NO D', 'RIVE', 'R SP', 'ECIF', 'IED ', 


'/ 1 ) 


ENDIF 


5000 


CONTINUE 


C 

C 

C 


CALL QUIT 

1 ('END ' , 'OF T' , 'HE A' , 'NALY' , 'SIS ', ' Q ) 


t******************** 


RETURN 

END 


The analysis modules represent the control structure for the incremental 
^ i ^^ t J ve . al 3 or ^ thiris implemented in the MHOST code. The source code with 
process! “ deSigned to serve 33 the schematic flow chart of the ccmputational 

t . (3 ^^f 0 S J heinati Ki flow ,. of ^ elenent and nodal data manipulations is coded in 
the element assembly submodules identified by the string ASSEM in the subroutine 
names which are entered from analysis moduli. The ele^Ss^JfsSSS 
perform . operations independent of element types and constitutive models. The 
pynii?^ 113 ^^dueed in the mechanics aspects of the formulations are" 

at th±S level * These submodules call the librarian routines 
for elements and constitutive rrodels. 

The element librarian subprogram (SUBROUTINE DERIV) Generates Quantities 

^ ^ 111 ® «****■ The 

element matrix notation as in ZIENKIEWICZ (1977). The element specific 

ormation returned fron the librarian subprogram is the strain-displacement 
array referred to as the B matrix in previous writeups for 1987. 

BMSTRS^i^dSf^i^ equation librarian subprogram (SUBROUTINE STRESS and 
BMSTRS) is designed to incorporate the nodal storage of stress and strain 
values. The STRESS subroutine sets up the loop ov£ the poinL^ Sg? 
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constitutive equations are evaluated. The current implementation is a 
nested double loop with the outer loop being over the nodes and the inner 
loop over the integration layers through the thickness. Note that the 
conventional displacement method can be recovered by restructuring t his loop 
in conjunction with a few minor modifications in the core allocation for 
stresses and strains. 

The librarian subprogram utilizes the constitutive equation package 
(SUBROUTINE NODSTR) from which individual subprog rams for ini tial strains, 
stress recovery and the material tangent are called. The librarian 
subprogram also controls the pre-integration of stresses, strains and the 
material tangent over thickness for the shell elemant. 

Note that application of the constitutive equation represents one of 
the most costly operations in nonlinear finite element computations . An 
attempt is made in MHOST to optimize the execution of this process which 
occurs, for example, once every iteration during the recovery of the 
residual vector. At the beginning of each increment, this process may be 
executed to evaluate the material tangent and to determine the contribution 
°f initial strain terms which are often necessary for proper displacement 
pre-conditioning. 

Except for a small amount of information related to convergence of the 
iterative solution, all report generation is performed at the end of an 
increment. Optionally, post-processing and restart files are written at the 
end of user-specified increments. Generic reporting subprograms are called 
from analysis modules inside the increment loop. 

1.2 Execution Supervisor and Analysis Drivers 

This section describes major subprograms in the MHOST package. For the 
sake of clarity no listings are attached in this section. Also this section 
does not discuss the arguments and ccmmon blocks appearing in each 
subroutine. 

Execution Supervisor 

MAIN PROGRAM - declares work space in blank cannon as an integer array. 

Also defines system parameters which are machine independent. Then passes 
control to actual execution supervisor SUBROUTINE HOST. 

SUBROUTINE HOST - controls the sequence of execution for the analysis 
modules. First, this routine executes the control parameter reader 
SUBROUTINE DATIN1 and checks for consistency by entering SUBROUTINE LETCMD 
and RUNCMD. The current structure of the code allows certain combinations 
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cLSS to te executed sequentially. 

a±ied frcm the execution supervisor are: 


Analysis modules 


SUBROUTINE STATIC for a quasi-static incremental iterative solution. 

SIBROUTINE DYNAMT for a transient time integration of the dynamic 
equilibrium equations in an incremental-iterative manner. 

SIBROOTINE MODAL for an eigenvalue extraction in vibration node 

Th t S Subsystein “V executed after quasi-static analysis 
for modal analysis of prestressed structures. analysis 

SUBROOTINE BUCKLE for an eigenvalue extraction in buckling load 
analysis^ 0 " 13 " **** Subsystem is executable only after qulsi-static 

SUBROUTINE FRONTS for a quasi-static incremental iterative solution bv 

a^iSl1 f lTSis“^?® rDaCh - **■ ttat «• «* 

S^S'Spl^iScn 11 "^ dy " amiC BmBaa " by the method 

Input Data Reader 

Ttere are three major subprograms: 

P^ 1 ‘ and interprets the parameter data Input 

*£££ 2s m **■ **** vaiues fcr 

SUBROUTINE BULKIN - Reads and interprets the finite element nodel 
definition data and prints the mesh and loading data for the initial 
increment (numter 0) . The bulk data readerTTenSSed^ 

“^frSSSsX ” DdJleS - “* — 

SUBROOTINE DOTH for memory allocation of integer workspace in 
blank coition to store nodal and element data. 

SUBROOTINE DATIN2 for model data input. 

SUBROOTINE DAT0U1 for reporting model definition data. 

SUBROOTOTE CHKELM for the detection of clockwise element 
connectivity definition which results in a negative Jacobian. 
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This routine automatical ly corrects the connectivity table to a 
counterclockwise direction, 

SUBROUTINE SUBDIV for memory allocation of subelement mesh data 
and automatic mesh generation of subelements. 

SUBROUTINE INCRIN - Reads and interprets the loading and constraint 
data for each increment. This routine is invoked by individual 
analysis modules fran inside the loop over the increments. 

SUBROUTINE DATIN3, a small subset of the bulk data reader SUBROUTINE 
DATIN1 is used for actual operations including initialization of arrays 
at the beginning of an increment. 

Algebraic Operation Subsystem 

There are three groups of routines for the profile solver, frontal solver 
and eigenvalue extraction, respectively. The profile solution package 
consists of: 

SUBROUTINE CGMPRO - Sets up the integer array for the profile of globcil 
stiffness equations to be stored in a profile form. 

SUBROUTINE ASSEM5 - Assembles the element stiffness equations into the 
global equation systan stored in a profile form. 

SUBROUTINE SGLUT1 - Controls the iterative solution processes including 
the vector update required for the quasi- and secant-Newton iterations. 

SUBROUTINE DECOMP - Factorizes the globed stiffness equations stored in 
a profile form. 

SUBROUTINE SOLVER - Performs the back substitution and generates the 
update vector for the incremental displacement. 

The frontal solution package consists of: 

SUBROUTINE FRONIW - Estimates the front matrix size to be accommodated 
in the core memory. 

SUBROUTINE INTFR - Allocates memory for the work space required for the 
frontal solution. 

SUBROUTINE PRFRNT - Sets up the elimination table for the frontal 
solution. 
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“* factorizes ^ giobai stiffness 

th^vector undate rpoTvfa 1 * the iterative solution processes including 
calls SUBRCXJTINE FROWIB for Se 

EEFS.'S'a,; ^ 

The eigenvalue analysis package consists of: 

SUBROUTINE EJGENV — Contxols t~hp> pypmfirin r\-f • , 

subsystem. Ule £ "ion of the eigenvalue extraction 

SUBFOOTD® IKDEP - Initializes the array for eigenvectors. 

SimOOTn® StJBSPC - Performs the subspace iteration and generates a 
specified number of eigenvalues and eigenvectors. 

SS^iterSSn^ ’ S ° 1VeS **** Gigenvalue 111 subspace by the 

Tl^area number of subprograms used corrmonly by the braic Operation 

SU^OOTINE STRUCT - Controls the marory allocation for the global 
gebraic manipulations at the beginning of every increment. 

SUBROUTINE INITI2 - Allocates memory required for the storage of global 
stiffness matrix and other vectors required in the linear alaebra^o 
manipulation of finite element equatSS!^ algebraic 

^ SeaiCh ^ line search 

Element Assembly Subnrdules 

T ? SSe -ff!. SU 5 pi:Dgrams that instruct vectors and matrices aDoearino in 
alg^ittaLc description of mixed iterative process discusseflTthf preSous 
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SUBROUTINE ASSEM1 - Assembles the displacement stiffness matrix for 
preconditioning purposes. All the kinematic and constitutive options 
are tested in this module. 

SUBROUTINE ASSEM2 - Assembles the coefficient matrix for transient time 
integration by the Newmark family of algorithms. This routine has 
evolved from SUBROUTINE ASSEM1 and contains all the same options. 

SUBROUTINE ASSEM3 - Assembles the coefficient matrix for quasi-static 
analysis using the frontal solution subsystem. Large displacement, 
stress stiffening and centrifuged mass terms are not available in this 
package. 

SUBROUTINE ASSEM4 - Calculates the nodal strain and recovers the 
residual vector in a mixed form. The subelement solution package is 
entered from this subprogram. 

Element Loop Structure and Library Routines 

In the element assembly submodules, element arrays are generated in the 
loops over elements. The protocol for accessing the element library is 
designed and implemented to involve a sequence of subroutine cedis: 

SUBROUTINE ELVULV - Sets up the current element parameters (See Table 2 
for variables and values) from the element library table. 

SUBROUTINE CNODEL - Pulls out quantities for the current element frem 
the global nodal array and restores them in the element workspace. 
Coordinate transformations necessary for beam and shell elements are 
performed in this subprogram. 

SUBROUTINE DERIV - Sets up the displacement-strain matrix for the 
current element by calling the element library subroutines. Those are: 

SUBROUTINE BPSTRS for plane stress elements, types 3 and 101. 

SUBROUTINE BPSTRN for plane strain elements, types 11 and 102. 

SUBROUTINE BSQLID for three-dimensional solid element, type 7. 

SUBROUTINE BSHELL for three-dimensional shell element, type 75. 

SUBROUTINE BAXSYM for axisymmetric solid-of -revolution elements, 
types 10 and 103. 
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SUBROUTINE BTBEAM for linear Timoshenko beam element, type 98. 
ROUTINE BASPST for the assumed stress plane stress element, 

SUK^INE BASPSN for the assumed stress plane strain element, 

. f ° r *** assunied stress three-dimensional solid 
SUBROUTINE UDERIV - A slot for user coded element B matrix routine. 

^ 10 CalCulate — m «. 

SUBROUTINE MPms - Calculates nodal ueight factor for the strata 
SUHrauri^ STIFF - Performs matrix triple products to assemble the 

thTStS 3311 ““ element l0ad VECtor a3sa=iated with 

sg*- g'ssr el “ ent strain at specmed 

SSS^aS^L: A3SembleS 0,6 mass matrta for nodal and 

SU^^UTIHE INITST - Generates initial stress terms for Quasi-static 
buckltag and modal analysis of prestressed structural ^ ' 

2^. EVaIUateS ^ Centrlfu 9 al to rotating 

S®ariTNE^i D . calculates the element residual vector for the 

SUBJOINS SUBFEM - Performs the subelement solution and calculates the 
element residual vector for the subelement mesh. calculates the 

SUBTOUTINE RELDPG - Calculates the relative deformation gradient at the 
element sampling points and projects to nodes. ^ at ^ 

SUBROUTINE RESDYN - Calculates the contribution of mass and damping 
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terms in the element residual vector when the transient dynamics option 
is used. 

Material Library 

A system of subroutines is included in the MHOST code which covers a wide 
range of material models and initial strain assumptions : 

SUBROUTINE SIMPLE - Integrates the stress over the increment assuming 
the elastic-plastic response of the material is modeled by the total 
secant modulus approach. Also generates the material modulus matrix. 

SUBROUTINE PLASTS - Integrates the stress over the increment and 
calculates the plastic strain by using the radial return algorithm. 

SUBROUTINE PLASTD - Calculates the consistent elastic-plastic modulus 
if the incremental equivalent plastic strain is positive. 

SUBROUTINE WALKEQ - Integrates the Walker unified creep plasticity 
constitutive equation and also generates a material modulus based on 
the temperature dependent elasticity assumption. 

SUBROUTINE LELAST - Calculates the stress for the constant material 
modulus given as data. 

SUBROUTINE THRSTN - Calculates the thermal strain. 

SUBROUTINE CRPSTN - Calculates the creep strain. 

Report Generation Subsystem 

A system of subroutines is included in the MHOST code to generate reports on 
the line printer image file and the formatted post-processing file readable 
by MENTAT, Version 5 and up (a proprietary interactive pre- and post- 
processor program developed by and available from MARC Analysis Research 
Corporation) . Note that the format of the post-processing file is similar 
to that of the MARC General Purpose Finite Element Program, Version K.l and 
the commercially available post-processing packages compatible with this 
program can easily be modified for use with MHOST. 

SUBROUTINE PRININ - Reads and restores the user instructions for the 
print options. This routine is entered from the model data reader 
and/or the incremental reader. This subprogram interprets user 
instructions including the type of information, the locations (either 
nodes or element integration points) at which the information is 
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^ ctocte r strings, and the range of nodes or 
elements specified by integer numbers . 

SUB^TTINE PRINOU - Writes the reports on the line printer image file 
A loop is constructed over the instruction set restored by PRdSn 

^OUmE PRINSU - Generates the reports for the subelonent solution 
£?nh?f i^^? rinter 1111390 file * ^ same control structure as the 
1 ° n . Writer PRIN0U is ^Planented. This routine also 
roiiows the instruction set generated by PRININ. 

SUBROUTI^ POSTOU - Writes formatted records on the post-processing 
. tfrdt 19 ' A11 information generated by the analysis 

thiTfilT' 110 C ° ntrDl over ^ records to be writtS on 

this file. The nodal values of stress and strain invariants and 
c exponents are written in this subroutine . 

SlffiROOTlNE POSTEN - Packs the nodal value record buffer and writes out 
the record when the buffer is filled. 

1 . 3 Control Variables 

SrS^ihTJin le - effective globally through a number of subprograms are 
stored in the following common blocks: ^ 


ADDVAL 

ALGEM 

ALTTOIN 

BODYFR 

BSECT 

CONTRO 

COMPND 


springs GS related to addi tional point masses, dashpots and 

Fortran unit numbers and record number counters. Also the 
value of p is stored in this cannon block. 

Real variables used for automatic load increments. Also 

va f iables for adaptive load increments by the arc 
length method are stored here. 

to J store direction of the body force vector 
for gravity loading or the position of two points defining 
the axis of rotation for centrifuged loading. 

Pointers and counters for beam section definitions. 

Control variables and binary switches to activate options 
built into the MHDST program. 

Flags for sequential execution of multiple analysis drivers. 
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COUNT 


cmLE 

DAMP 

EIGEN 

MDDSUP 

ELEMEN 

ELTYP 

ERRORS 

FREE 

HARMDN 

INCCON 

MACHIN 

MAXIMA 

LOUBIN 

PAQCNT 

PARAM 

PERIOD 

SYSTEMS' MANUAL 


Counters for the line on the current page of the line 
printer image file. 

The title line and the date and time when the execution is 
initiated. 

A damping factor array for transient dynamic analyses. 

Counters for eigenvalue extraction by the subspace iteration 
method. 

Counters for transient response calculation by vibration 
mode superposition. 

A element type indicator and flags for element array 
manipulations . 

Counters for the element variables which are currently 
being processed. The entries in this ccrtmon block are 
redefined every time the element loop is incremented. 

Data input error counter. 

Working arrays for the free format reader. 

Control variables for harmonic analysis 

Variables for the incremental data reader. 

Machine dependent ratio of the integer and real word 
lengths. 

Maximum number of element variables appearing in the current 
problem. 

Flags for the selection of integration processes for various 
element arrays. 

Counters for the page numbers of the line printer image 
output file. 

Mesh parameters for the total number of data entries. 

Parameters to define time periodic loading and bou ndar y 
conditions . 
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POSTPN 


POWER 

PULSES 

RESULT 


Control variables used for generation of the post-processing 

Control variables for the power spectrum. 

Counters and pointers for pulse leads in dynamic analysis. 
Control variables for generation of the line printer imaqe 

Olltnur f i Id ^ 


SUBELM 

SUBTYP 

SUBSTR 

SHIFT 

TIME 


Control variables for the subelement analysis option. 

Element variables for the subelement analysis option. The 
information stored in this cannon block is the subelement 
counterpart of ELTYP and entries are updated every tine the 
loop over the subelements is incremented. 


Space allocated for the control variables of the 
substructure option (not used in Version 4.2). 

Control variables for the power-shift option in the 
eigenvalue extraction for medal analysis. 

Tine parameters for transient dynamics and rate dependent 

I CHI I -l i r vr*»e* c 


TIMLOC 

TMARCH 

TRANSF 

TOLER 

VRIDSK 


The initial value for the CPU clock. 

Parameters to define the time integration operator. 

local coordinate transformation arrays. Typically updated 
in an element -by-element manner. 


Error and tolerance for the global iterative solution. 

Control variables for the out-of-core solution by the 
fronted process . 


ZPRINT 


Control variables for a definition of a record in the line 
printer output file. 


Control variables which play a significant role are sunmarized below: 


Variable Camion Initial 

Name Block Value 


Content 
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ICREAD 

ALGEM 

5 

Fortran unit number for the main 
data input device. 

ILPRNT 

ALGEM 

6 

Fortran unit number for the line 
printer output file (Execution 
log). 

JLPRNT 

ALGEM 

6 

Fortran unit number for the line 
printer output file (Bulk report) . 

IOQNSL 

AH2M 

1 

Fortran unit number for the command 
input and the execution log output. 

IPOSTF 

ALGEM 

19 

Fortran unit number for the 
formatted post-processing file. 

ISCRAF 

ALGEM 

10 

Fortran unit number for the working 
on-line storage (binary) . 

IPOSTB 

ALGEM 

9 

Fortran unit number for plotting 
data output file (binary - not used 
in Version 4.2). 

IRSTRT 

ALGEM 

8 

Fortran unit number for binary 
restart file. 

JCREAD 

ALGEM 

12 

Fortran unit number for alternate 
input data file. 

LINE 

ALGEM 

0 

Line counter for the output unit 
ILPRNT. 

LINE2 

ALffiM 

0 

Line counter for the output unit 
JLPRNT. 

CURPER 

AUTOIN 

0.0 

Load factor of the current arc- 
length iteration step. 

TOTPER 

AUTOIN 

0.0 

Total load factor including the 
current step of arc-length 
iteration. 

ARCLEN 

AUTOIN 

0.0 

The arc-length. 

JADP 

AUTOIN 

0 

Flag for the adaptive load 
increment option. 
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Variable 

Name 

Caimon 

Block 

Initial 

Value 

Content 

NCREEP 

AUTO IN 

0 

Maximum number of updates for the 
adaptive time step control for 
creep strain. 

JEND 

CONTRO 

0 

Flag for end-of-iteration. 

JITER 

CONTRO 

0 

Current iteration step of the 
global solution. 

JTEMP 

CONTRO 

0 

Flag for temperature loading. 

JPRINT 

CONTRO 

0 

Full line printer report generation 
interval for incremental analysis. 

JP 

CONTRO 

0 

Flag for pressure loading. 

JSUB 

CONTRO 

0 

Flag for substructure . 

JINC 

CONTRO 

0 

Current increment. 

JREST 

CONTRO 

0 

Flag for restart jobs. 

JSAVE 

CONTRO 

0 

Flag for check-point job to write 
the restart file. 

JREDLM 

CONTRO 

0 

Flag for memory allocation of 
global arrays for the next solution 
step. 

JAUTO 

CONTRO 

0 

Flag for automatic load 
incrementation . 

JPOST 

CONTRO 

0 

Flag for post file generation. 

JBACK 

CONTRO 

0 

^■^9 for back substitution to avoid 
the global stiffness assembly and 
factorization . 

JOPTIM 

CONTRO 

0 

Number of Cuthil-McGee iterations 
for bandwidth optimization. 

JCREEP 

CONTRO 

0 

Flag for the creep strain option. 
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JDIST 

CENTRO 

0 

Flag for the distributed load 
option. 

Variable 

Name 

Cannon 

Block 

Initial 

Value 

Content 

JCONST 

CONTRO 

0 

Selector for the constitutive 
equation = 




0 for linear elasticity 

1 for secant elasticity/ 

simplified plasticity 

2 plasticity 

3 unified creep plasticity 

JDYN 

CQNTRO 

0 

Flag for the dynamic analysis 
option. 

NONISO 

CONTRO 

0 

Flag for anisotropic material 
response. 

ITHERM 

CCNTRO 

0 

Flag for temperature dependent 
material response. 

NXSTAT 

COMPND 

0 

Flag for the static analysis module 
as the driver for the second step 
of the analysis. 

NXSQLV 

CQMPND 

0 

Flag for the optional frontal 
solution for the second step of the 
analysis. 

NXINIG 

COMPND 

0 

Flag for the direct time 
integration for the second step of 
the analysis. 

NXMDDL 

COMPND 

0 

Flag for nodal analysis for the 
second step. 

NXBCKL 

COMPND 

0 

Flag for buckling analysis for the 
second step. 

NXSUPR 

COMPND 

0 

Flag for modal super-position for 
the second step of the analysis. 
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TITLE 

CTITLE 

t 9 

An array to store the character 
string representing the title of 
the current analysis job. 

IDYNMD 

EIGEN 

0 

Number of eigenvalues and 
eigenvectors to be extracted. 

Variable 

Name 

Common 

Block 

Initial 

Value 

Content 

IPTAR 

EIGEN 

0 

Pointer to the workspace required 
for the subspace iteration. If the 
BPGS update is invoked in the 
static analysis, this variable is 
used as a pointer for an update 
vector. 

IPTBR 

EIGEN 

0 

Pointer to the workspace required 
for the subspace iteration. If the 
BPGS update is invoked in the 
static analysis, this variable 
becomes a pointer for one of the 
update vectors. 

IC 

ELEMEN 

0 

Current element type. This 
variable is updated when the 
element loop is incremented. 

IEL 

EILEMEN 

0 

Current element number. 

IDF 

ELEMEN 

0 

Number of d.o.f. per element being 
processed. 

JLAW 

ELEMEN 

0 

Constitutive equation type: 



= 2 
= 3 
= 4 
= 5 
= 6 
= 7 

plane stress 

plane strain 

axi-symmetric solid 

three dimensional continuum 

shell 

beam 

IPATH 

ELEMEN 

0 

Flag for the integration method 
options for assembly and recovery. 
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IASSEM ELEMEN 0 

NELCFD ELTTP 0 

NELNFR ELTYP 0 

NELNOD ELTYP 0 

Variable Cannon Initial 

Name Block Value 

NELSTR ELTYP 0 

NET .P R ELTYP 0 

NELINT ELTYP 0 

NELLV ELTYP 0 

NET I A T ELTYP 0 

NDI ELTYP 0 

NSHEAR ELTYP 0 

NELCMP ELTYP 0 


IA FREE 


Flag to indicate element assembly 
operations . 

Number of coordinate entries per 
node for the current element. 

Number of d.o.f . per node for the 
current element. 

Number of nodes per current 
element. 


Content 

Number of generalized stress /strain 
components per node for the current 
element. 

Number of distributed load types 
for the current element. 

Number of integration points for 
the current element. 

Number of d.o.f. per current 
element. 

Number of integration layers for 
the shell element to calculate 
resultant quantities. 

Number of direct strain/stress 
components for the current 
element. 

Number of shear strain/stress 
components for the current element. 

Number of LDamina strain/ stress 
components (differs from NELSTR 
only for shells ) . 

Buffer for the card image read from 
ICREAD file. 
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MAXCRD 

MAXIMA. 

1 

Maximum number of coordinate 
entries in the current mesh. . 

MAXNFR 

MAXIMA 

2 

Maximum number of d.o.f. per node 
in the current mesh. 

MAXNOD 

MAXIMA 

1 

Maximum number of nodes per elenent 
in the current mesh. 

MAXCHR 

MAXIMA 

1 

Maximum number of material data 
entries for the element definition 
in the current mesh. 

NSUMAX 

MAXIMA 

0 

Maximum number of substructures 
(not-used in version 4.2) 

MAXBSP 

MAXIMA 

6 

Maximum number of entries in the 
beam section definition in the 
mesh. 

Variable 

Common 

Initial 

Name 

Block 

Value 

Content 

MAXDMT 

MAXIMA 

1 

Maximum dimension of the 
constitutive resultant matrix. 

MAXFRN 

MAXIMA 

0 

Maximum front matrix size (valid 
when the frontal solution option is 
invoked) . 

MAXEAN 

MAXIMA 

0 

Maximum number of entries in the 
inverse connectivity table. The 
value is set in INITI2. 

MAXBET 

MAXIMA 

0 

Maximum number of entries in the 
element strain-displacement roatri x 
for all the integration points. 

JLOUB 

LOUBIN 

1 

Not used in Version 4.2. 

JINTER 

LOUBIN 

3 

= 1 
= 2 

Selector for the integration rule 
used to generate the strain- 
displacement equation. 

Reduced integration 
Selective integration 
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(one point shear sampling) 

= 3 Selective integration with the 

element coordinate transformation. 


JEXTRA 

LOUBIN 

1 

Selector for the integration rule 
used in the residual force 
calculation. 



= 1 
= 2 

Full Gaussian quadrature 
One point reduced integration 

JWEIGH 

LOUBIN 

3 

Selector for the integration rule 
used to generate the stiffness 
equations . 



= 1 
= 2 

= 3 

Full Gaussian quadrature 
Selective integration (one point 
shear sampling without coordinate 
transformation) . 

Selective integration with the 
element coordinate transformation. 

NPAffil 

PAGCNT 

0 

Page counter for the line printer 
output on ILPRNT. 

NPAGE2 

PAQCNT 

0 

Page counter for the line printer 
output on JLPRNT 

Variable 

Name 

Ccmmon 

Block 

Initial 

Value 

Content 

NTYPE 

PARAM 

0 

Number of different element types 
in the current mesh. 

Wki .kM 

PARAM 

0 

Total number of elements in the 
current mesh. 

NBC 

PARAM 

0 

Total number of displacement 
boundary conditions in the current 
mesh. The user specified value in 
the parameter data section is used 
for memory allocation. The value 
is updated to the actual value when 
the boundary displacement data is 
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read in the model data. 


NNODE PARAM 0 

NTIE PARAM 0 

NMAX PARAM 0 

NTRAN PARAM 0 

NSBFGS PARAM 0 


2.0 DATA STORAGE SCHEME 


Total number of nodes in the 
present mesh. 

To tcLL number of tying equations in 
the present mesh. 

Maximum number of terms in the 
tying equations in the present 
mesh. 

Total number of nodal coordinate 
transformations specified by the 
user in the current mesh. 

Number of update vectors for the 
BEGS quasi-Newton method. 


This chapter discusses the dynamic core allocation scheme implemented 
jji the MHOST code. The first section outlines the design principle and 
if* f°llcwsd ty the code actually allocating memory in the second section. 
The third section is devoted to the definition of pointers. 

2 . 1 Overview 


A dynamic core allocation strategy is implemented in the MHOST code. 

An integer array is defined as an entry to blank common. This array is used 
as the working storage. Except for the frontal solution and transient 
dynamic analysis options, all the information required for the finite 
element computation is stored in this work space. First parameters defining 
the number of variables for element types in use is copied from the array 
residing in SUBROUTINE TYPEIN. 


The first section of this space stores the nodal variables and element 
arrays. The amount of memory required to store these data is found from the 
number of nodes, elements and attributes given by the user as part of the 
parameter data. This portion of working storage and information stored 
therein is often referred to as the finite element da tabas e. The pointers 
for the finite element database are defined in SUBROUTINE INITI1 before 
reading the model data section of the input data file. The model data is 
read directly into the space allocated for the finite element database. 


SYSTEMS' MANUAL 


Page : 39 


MHOST Version 4.2 



In finite element computations , space is required to store arrays where 
size varies depending on the analysis type and mesh topology. For instance, 
in most of the analysis options, the global stiffness matrix is stored in a 
profile form. After the model data is read, the mesh topology (element 
connectivity) is swept through and column heights are calculated for each 
degree of freedom in SUBROUTINE CQMPRO. The pointers for the global arrays 
are then calculated in INITI2. 

For the local-global analysis inherent to the subelement procedure, 
an indirect accessing scheme is implemented. When the subelement option is 
invoked by the parameter data, element arrays to store subelement data 
pointers are prepared as a part of the finite element database. The 
pointers are calculated only for the global elements which are divided into 
subelements. The mechanism of this indirect addressing scheme is 
implemented in the memory allocation routine INITSE and the subelemant 
solution driver routine SUBFEM. 

2.2 Memory Allocation Subprograms 

The following SUBROUTINE TYPE IN substitutes the element characteristics 
array into the workspace: 

C=SUBROUTINE=TYPEIN CALLED FROM SUBROUTINE 'DATIN1' 

SUBROUTINE TYPE IN 

1 (IWORK ,RW0RK , IERR ,NTYPE ,ILAST , ILPRNT,NDIMEN) 

C 

c ********************************************************************** 
c 

C ROUTINE FOR OBTAINING INPUT FOR DIFFERENT TYPES OF ELEMENTS 
C 

C IERR ERROR FLAG 

C NTYPE NUMBER OF ELEMENT TYPES 

C HAST LAST WORD FOR INPUT 

C ILPRNT OUTPUT DEVICE 

C NDIMEN DIMENSIONS OF THE ANALYSIS PROBLEM 
C 

c ********************************************************************** 

C 

IMPLICIT REAL* 8 ( A-H , 0-Z ) 

REAL* 4 RWORK 

C 

c ********************************************************************** 

C 

DIMENSION IWORK ( 1 ) , RWORK ( 1 ) 

DIMENSION I STORE ( 13 , 16 ) 
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NO . TYPE . NCRD . NDOF . NODE . NSTR . NCHR . NIOT . NLLV . NLAY . NCMP . NNDI . NSHR ! JLAW . 


t********** 


NTYPES 

JKEY 


16 

-1 



*********** 

*********** 


101 CONTINUE 

c CALL l^EFO R ( 1W0RK( ILAST+1) ,RW0RK(ILAST+1) ,13,0,0, IERR, JKEY) 

IF( JKEY .EQ. 1 ) GO TO 501 
IF( NIYPE .EQ. 0 ) GO TO 301 

DO 201 J = 1 , NTYPE 

K = ILAST + 1 - 13*J 

IF ( IW0RK( ILAST + 1) .NE. IWORK(K) ) GO TO 201 
CALL COPYIN(IV»RK( ILAST + 1) , IWORK(K ) , 13 ) 
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LL = IWORK(K) 

GO TO 401 

201 CONTINUE 
301 CONTINUE 
C 

DO 351 LL 1 , NTYPES 

C 

IF( ISTOPE(l,LL).EQ.IWDRK(ILAST + 1 )) THEN 

CALL COFYIN(ISTORE(1,LL) ,IWORK( ILAST + 1), 13 ) 

IF( ISTORE( 13, LL) .LE.4 ) NDIMEN = 2 

E N D I F 

22 CONTINUE 
C 

351 C 

C 

NTYPE = NTYPE 

ILAST = ILAST 

C 

401 CONTINUE 

GO TO 101 

501 CONTINUE 
C 

C ********************************************************************** 
C 

RETURN 

END 


O N T I N U E 

+ 1 

+ 13 


As seen in the following example, the element data copied by the above 
subprogram is accessed every time the element loop is incremented: 


C ********************************************************************** 


FIRST ELEMENT LOOP: FORM THE 'LUMPED' MASS MATRIX 

ALSO FORM NODAL NORMALS FOR S HELL ELEMENTS 


CALL NUL(REA(IMASNO),NNQDE) 

CALL NUL(REA( IGSINO) ,NNODE*NELSTR) 

CALL NUL(REA(IGEPNO) ,NNODE*NELSTR) 

C ********************************************************************** 
C 

CALL NUL( REA(IEQPSI) , NELLAY*NELNOD ) 

CALL NUL( REA(IIPSNO) , NELCMP*NELLAY*NEUJOD ) 

C 
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C »> START THE FIRST ELEMENT LOOP 
C 

DO 5500 IELCNT = 1 ,NELEM 

IC = INT( ITYP + IELCNT - 1 ) 

II = INEL + MAXNOD*( IELCNT - 1 ) 

C *** 


c *** 


IF( IC .EQ. 0 ) 


GO TO 5500 


CALL ELVULV( INT , IC , IERR ) 

CALL CNQDEL( REA ,INT ,INT(I1) ,CTRANS , IELCNT ,IC ,-l ,-1) 
CALL LMPMAS 

1 (REA(IMASNO) ,REA(IDET) ,INT(I1) ,NELNOD ,NELINT 

2 NNCDE ,IC ,REA( ICH) / REA(ICOR) ,NELCRD 

3 IELCNT ,NELEM ,REA(INOD) ,MAXCRD .CTRANS 

4 JGRAM ) 


IF (JPRES .GT. 0) CALL BOUNDN 

1 ( REA( IBNORM) , REA( ICOR ),INT(I1 

2 NNODE ,NELNQD ,NELCRD 

5500 CONTINUE 


), IELCNT 

) 


,IC 


C «< CLOSE THE FIRST ELEMENT LOOP 
C 

C ... NORMALIZE THE NODAL NORMALS FOR BEAMS AND SHELLS 
£ IF .OR. JLAW.EQ.9) CALL NRMNRM(REA(INOD) ,MAXCRD, NNODE) 

C ******************************** 

8500 CONTINUE 

SUBROUTINE ELVULV as shewn belcw accesses the entries defined by SUBROUTINE 

J. YlrhlN : 


C=SUBROUTINE=ELVULV CALLED BY SUBROUTINES 'ASSEM1 ' , 'ASSEM4 ' 
SUBROUTINE ELVULV 
1 (IWORK ,IC1 # IERR ) 

C 
C 
C 

C EXTRACTS INFORMATION ABOUT A CERTAIN ELEMENT TYPE 
C 

C IC1 ELEMENT TYPE 
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IERR 


ERROR FLAG 


C 

C 

C 

C 


********************************************************************** 


IMPLICIT REAL* 8 ( A-H , O-Z ) 

REAL* 4 RNORK 

C 

c ********************************************************************** 
c 


c 

c 

c 


c 

c 

c 


DIMENSION IWORK(l) 

********************************************************************** 


COMMON / ADGEM 

1 

2 

COMMON / CONTRO 

1 

2 

3 

4 

5 

6 

7 

8 
9 
+ 

COMMON / ELTYP 

1 

COMMON / START1 

1 

2 

COMMON / PARAM 

1 

2 

3 

4 

5 

6 
7 

COMMON / ELEMEN 

1 


/ ICREAD,rLPRNT, JLPRNT, ICGNSL, IPOSTF, ISCRAF, 
IPLOTB, IRSTRT, JCREAD, IPVARS, IPSETS, IFILEX, 
PI ,LINE ,LINE2 

/ JEND , JITER , JTEMP ,JPRINT,JP , JSUB , 

JINC , JREST , JSAVE , JREDIM, JAUDO ,JPOST , 
JBACK , JOPTIM, JCREEP , JDIST ,JCCNST,JDYN , 
NQNISO, ITHERM, ITRIG ,IDYNM , JREPCT, JTANCS, 
JTHERM, JFORCE, JOTEMP, JUCOEF, JDISTS, JUHOGK, 
JDERIV, JUBOUN,IDSTOP,Et7TSTR, JFLAST, JRAND , 
JFRONT, JDEFOR, JEMBED,ITEST ,JDISP , IFBFGS, 
IFSCNT, IFLINE , IFPRNT, ICCMPS , IPCONJ, JEIGEN, 
IFBODY , IFGRAV, IFCENT, JDAMP ,LDYN ,ISTAT , 
JFDSXX, JISTIF , JCENIM, JFINIT, JLARGE , JFQLOW, 
JWKSLP, JPRES , JCDUM2 , JCDUM3 
/ NELCRD,NELNFR,NELNOD,NELSTR,NELOHR,NELPR , 
NELINT,NELLV ,NELLAY,NDI ,NSHEAR,NELCMP 
/ IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 

ISTRN ,ICOP , IPRINT, IPOST ,IDIST , ILEAN , 

IBPRES , IBNORM, IMONIT, IST116 , IST117 , IST118 
/ NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX , 

NTRAN ,NIRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRINT,NPOST ,NSBC ,NDOP ,NSIZE ,NBSECT, 

NSHIFT,NSBFGS,NGMRS ,NSPRI ,NMASS ,NDASH , 

NDYNMD , NSENC ,NSUPER,NHARM ,NBASE ,NINC , 

NITER ,NPSPTS,NFDPTS,NFULSE,NPDPTS,NHARD , 
NSUMOH , NDIMEN , NMONIT , NPAR4 0 , NPAR4 1 , NPAR4 2 , 
NPAR4 3 , NPAR4 4 ,NPAR45,NPAR46 ,NPAR47 ,NPAR48 
/ IC , IEL , IDF , JLAW ,IPAIH ,IASSEM, 
JRULE , JCART , JEL009, JEL010, JEL011, JEL012 


********************************************************************** 
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c 


DO 5000 II = 1 ,NTYPE 


II = IWORK ( IELPRM + 13* (II - 1)) 
IF(I1 .EQ. IC1) GO TO 8000 
5000 CONTINUE 


C 

c 

c 


CALL LINES ( 1,1) 

WRITE (ILPRNT, 9999) IC1 
WRITE(ICQNSL,9999) IC1 
9999 PORMAT(2X,28H***ERROR*** 


HliEMENT TYPE,I5, 12H NOT DEFINED) 


t * * * * * * * * * * ★ * 


C 

C 

c 


IERR = IERR+1 


************ 


C 

C 

C 

C 

c 

c 


8000 CONTINUE 

IS1 = IELPRM + 13*(II - 1) + 1 
NELCRD = IWORK(ISl) 

NELNFR = IWORK (IS1+1) 

NELNOD = IWORK (IS 1+2) 

NELSTR = IWORK (IS 1+3) 

NELCHR = IWORK (IS 1+4) 

NELINT = IWORK (IS 1+5) 

NELPR = IWORK ( IS1+6 ) 

NELLAY = IWORK ( IS1+7 ) 

NELCMP = IWORK (IS 1+8) 

NDI = IWORK (IS 1+9) 

NSHEAR = IWORK ( IS1+10) 

JLAW = IW0RK( IS1+11 ) 

NELLV = NELNFR*NELNOD 
IDF = NELNFR*NELNOD 


*********** 


SPECIAL TREATMENT FOR THE NINE POINT INTEGRATION OF THE QUADRATIC 
LAGRANGIAN ELEMENTS ( ONLY IN CASE OF MATRIX ASSEMBLY ) 


C 

C 

c 


IF ( IASSEM .EQ. 0 .AND. NELINT .EQ. 9 ) NELINT = 4 


IF (JPRINT.LT. 3 .OR. NBAND.EQ.O) GO TO 9000 


******* 


CALL LINES ( 4, 4 ) 
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WRITE (ILPRNT, 1920) IEL,IC1 , 

1 NELCRD,NELNFR,NELtO},NELSTR,NELCHR,NELINr, 

2 NELPR ,NFITJAY,NELCMP,NDI ,NSHEAR, JIAW 

1920 FORMAT (/, IX, 14HELEMENT NUMBER, 14, 6X,6H TYPE,I6,6X,10HPARAMETERS, 

1 / , 7X, 6HNEICRD, 16 , 6X, 6HNEIMFR, 16 , 6X, 6HNEI2J0D, 16 , 

2 6X, 6HNELSTR, 16 , 6X, 6HNELCHR, 16 , 6X, 6HNELIMT, 16 , / , 

3 7X,6HNELPR ,I6,6X,6HNELLAY,I6,6X,6HNELCMP,I6, 

4 6X,6HNDI , 16 , 6X, 6HNSHEAR, 16 , 6X, 6HJLAW ,16) 

C 

9000 RETURN 
END 

In the element loops, information related to the element being 
processed is pulled out from the global finite element database and 
substituted into the element work arrays. The following SUBROUTINE CNODEL 
is called before the element data manipulation: 

SUBROUTINE CN0DEL= CALLED BY 'ASSEM1' , 'ASSEM4 ' , 'MASMAT' 

'DIV2Q2 ' , 'ASSEM3 ' , ' INITST' , 'NEWRHS ' , 
'PERTRB' , 'RESTQR' 

SUBROUTINE CNODEL 

1 (REA ,D7T , ISLV ,CTRANS, IEL ,IC , IFLAG ,ISTEP ) 

EXTRACTS ELEMENT QUANTITIES AND UPDATES GEOMETRY 

ISLV CONSTITUTIVE LAW VALUES 

IEL POINTER TO ELEMENT NUMBER 

********************************************************************** 

IMPLICIT REAL* 8 (A-H,0-Z) 

REAL*4 REA 

DIMENSION REA(l) ,INT(1) ,ISLV(1) ,CTRANS(3,3) 

DIMENSION VTRANS(2,2) ,TTRANS(3,3) ,ETRANS(3,3) 

********************************************************************** 
OCMM3N / TMAFCH / DALPHA,DBETA ,DGAMMA 

COMMON / ALGEM / ICREAD, ILPRNT, JLPRNT, ICONSL, IPOSTF, ISCRAF, 

1 IPLOTB, IRSTRT, JCREAD,IFVARS, IPSETS, IFILEX, 

2 PI ,LINE ,LINE2 
COMMON / CONTRO / JEND ,JITER ,JTEMP ,JPRINT,JP ,JSUB , 
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COMMON / ELTYP 

1 

COMMON / MAXIMA. 


COMMON / PARAM 


JINC , JREST , JSAVE , JREDIM, JAL7IO ,JPOST , 
JBACK , JOPTIM, JCREEP, JDIST ,JCCNST,JDYN , 
NCNISO, ITHERM, ITRIG , IDYNM , JREPOT, JTANGE, 
JIHERM , JPORCE , JUTEMP , JUCDEF , JDI STS , JUHOOK , 
JDERIV, JUBOUN,IDSTOP,INrSTR, JPLAST, JRAND , 
JFRCNT, JDEFOR, JEMBED,ITEST ,JDISP , IFBFGS, 
IFSCNT, IFLINE , IFPRNT, ICCMPS, IPCQNJ, JEIGEN, 
IFBODY,IFGRAV, IFCENT, JDAMP ,LDYN , ISTAT , 
JFDSXX , JISTIF , JCENIM, JFINIT, JLARGE , JFODOW, 
JWKSLP, JPRES , JCDUM2,JCDUM3 
/ NELCRD,NELNFR,NELNOD,NEILSTR,NEI£IHR,NELPR , 
NELINT,NELLV ,NELLAY,NDI ,NSHEAR,NEICMP 

/ maxcrd,maxnfr,maxnco / maxstr,maxchr,maxprs / 

MAXLAY , MAXINT , MAXWRK , MAXNLV, NSUMAX , MAXCMP , 

MAXBSP , MAXGMR , MAXTEM, MAXEM, MAXLWK , MAXDMT , 

maxfrn,maxbet,maxvar,maxset,maxean,maxord, 

MAX025,MAX026,MAX027,MAX028,MAX029,MAX030 

/ NTYPE / NELEM ,NNODE ,NBC ,NTIE ,NMAX , 

NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRINT,NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 

NSHIFT,NSBPGS,NGMRS ,NSPRI ,NMASS , NOASH , 

NDYNMD,NSBNC ,NSUPER,NHARM ,NBASE ,NINC , 

NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUMCH , NDIMEN , NMDNIT , NPAR4 0 , NPAR4 1 , NPAR4 2 , 

. , NPAR4 3 , NPAR4 4 , NPAR4 5 , NPAR4 6 , NPAR4 7 , NPAR4 8 

COMMON / START1 / IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 

ISTRN ,ICOP , IPRINT, IPOST ,IDIST ,ILEAN , 
IBPRES , IBNORM, IMONIT, IST116 , IST117 , IST118 
/ INOD ,ITEM , INLV ,IPOSU , ITEMDF, IDUP 
IDINC ,ICnUT , IFORCE, IRESID, IWTNOD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS, IISTRN, 
IIPSTR, IICSTR, I ITSTR, IPSINO, ICSTOO, ITSTNO, 
IISINO, IISNNO, IIPSNO, IICSNO, IITSNO, IEMAT , 
IDMTNO, IEQCST, ICMENO, IICMNO, ITDSNO, IVSWIO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 , IDSITR, ISWELL, 
IEQCSI , IPREF , IDSX3 ,IYIEI£>,IDFINC,IDETOr, 
^ , IST443 , IST444 , IST445 , IST446 , IST447 , IST448 

COMMON / START5 / IRL ,IREAC ,IES ,IAB ,IBCM ,ISRL , 

IBTL£ , ISKM , HAST ,IRLB jIDINCP^FORIN, 

IOP , IDAM , IMASMT, IDIAG / ITJPTRI,ICQLPT, 

_ , IMASDI , IMASUP , IST521 , IST522 , IST523 , IST524 

COMMON / START6 / IELV ,ICOR ,ISIG ,IEPS ,IWNOD ,ISNOD , 

IENOD , IEIM , ICH ,IPP ,IXRL ,IXIRL , 

IXP , IXK ,KPSTRN,KCSTRN,KTSTRN / KISTRS, 

KISTRN , KIPSTR , KICSTR, KITSTR , KPSTNO , KCSTNO , 


COMMON / 
COMMON / 


STARK 

START4 


/ 
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c 

c 

c 

c 


4 

5 

6 

7 

8 

OOMM3N / START7 
CQMMDN / STAPT8 

1 

2 


KTSTNO / KIS'INO,KISNNO,KIPSNO,KICSNO,KITSNO, 
IMASNO, IMNOD , IEQPST, IEQPSI ,KEQPST,KEQPSI , 
KDMAT ,KIMIM),KTDSNO,KITDST, IXM ,1X0 , 

IVELM ,IAEU1 , IMASEL,KYIELD, IST647 , IST648 , 
IST649 , IST650 , IST651, IST652 , IST653 , IST654 
/ ICON , IKBCR , ITRACR, ITRANR, IBETA , IDET 
/ KGEPS ,KIGEPS,KGSIG ,KIGSIG,KGIDST, 

IGEFNO, IIGENO, IGSINO, IIGSNO, ICTDNO, 
KGEPNO,KIGENO,KGSINO,KIGSNO,KGTONO 


COMMON / 

1 

COMMON / 


START9 / KEQCSI,KICMNO,KSWI2KO,KIMPNO,KroFNO,KDUMMy, 
KEQCST,KCMENO,KVSWTO,IST910,IST911,IST912 
MACHIN / IDP 


********************************************************************** 


NELST2 = NELSTR * NELSTR 

MAXST2 = MAXSTR * MAXSTR 

IPP = IPRES + (IEL-1) * MAXPRS * IDP 

MAXDIM = MAXCMP * MAXLAY 

NELDIM = NELCMP * NELLAY 


C 

c 


CALL SEARCI 

1 ( INT( IELV) , INT( INLV) , ISLV,MAXNFR,bMDDE, 1,NELN0D,NELNFR) 

CALL SEARCH 

1 (REA(ICOR) ,REA(INOD) , ISLV,MAXCRD,NN0DE,1,NEUJ0D,NELCRD) 
CALL SEARCH 

1 (REA(IXRL) / REA(IDTOT),INT(IELV) / 1 / NFD / 1,NELLV / 1) 

CALL SEARCH 

1 (REA( IXIRL) , REA( IDINC) , INT( IELV) , 1,NFD, 1,NELLV, 1 ) 

CALL SEARCH 

1 (REA(KEMTNO) ,REA( IDMTNO) ,ISLV,MAXST2,NN0DE, 1,NELN0D,NELST2) 

CALL SEARCH 

1 (REA(K(3IPN0) ,REA(IGEPNO) ,ISLV, MAXSTR, NN0DE,1,NELN0D, NELSTR) 

CALL SEARCH 

1 (REA(KICENO) , REA (IIGENO) ,ISLV, MAXSTR, NN0DE,1,NELN0D, NELSTR) 

CALL SEARCH 

1 (REA(KGSINO) ,REA(IGSn«) ,ISLV, MAXSTR, NNCDE,1,NELN0D, NELSTR) 

CALL SEARCH 

1 (REA(KIGSNO) , REA( IIGSNO) , ISLV, MAXSTR, NNODE, 1,NELN0D, NELSTR) 

CALL SEARCH 

1 (REA(KGTDNO) ,REA(IGTDNO) , ISLV, MAXSTR, NNODE, 1,NELN0D, NELSTR) 

CALL SEARCH 
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c 


c 

c 

c 


c 

c *** 
c *** 
c 

c 


‘search^ 

l CflLL < ^ffl QPSI) ' REA(IBQPSI),ISLV ' 1 ' 1 ™ 0DE ,1,NEU»D, 1 ) 

1 C^ ( » PST) ' REA(IEQPST ^ ISL ^ 1 Wi,mra r i ) 

1 CALL ( SEArS PSN 0) '^< IIIOT )' ISLV / M AXSTR,Nt^ 

WESg*"' 'EEA.( HCSMO) , ISLV,MAXSTR,NfODE, l f NEILNOD,NEILSTR) 
'EEA( IITSNO) , IS LV,MAXSTR,NNCDE / l,NE3JOD,NELSTR) 
1 CAIi ( SEARffl QCSI } ,REA( IEQCSI) ' ISLV ' 1 /NN0DE,1,NEU«D, 1 ) 

1 CALL ( ^^ffl^^ ) aI^V,MAXSTR,NNODE, 1,NELJ0D,NEI£TR) 

1 /NNODE.l.NEUJOD, 1 ) 

, ISLV, 1 ,NNODE, ^NEIMOD, 1 ) 

1 CAI i ( I^ FTO) ' REA(I ™ F ^ ISL ^ 1 ,NNQDE, 1,NEE1K)D, 1 ) 

1 (REA(KISTRS) ,REA(ICHAR) , ISLV , MAXCHR, NNODE , 1 , NEI2JOD , NELCHR) 


CALL SEARCH 


N3HARD = NHARD * 3 


1 CALL^^TC^ IELD ^ ^REA(mELD) , I SLV, N 3HARD,Nf*X)E,l,NELNC» / N3HARD) 
1 (REA(ICH) ,REA(KISTRS) , 1 ,NELNQD,NELCHR) 


D-MATRIX ROTATION FOR ANISOTROPIC MATERIALS 


IF (NONISO .EQ. 1) CALL RCTDMT 

2 ( ^ ( ™S PREF >; ISLV .neuod-nelsto.nnode , 


DYNAMIC CALCULATIONS : QUANTITIES ASSOCIATED 
DERIVATIVES 


WITH NODAL TIME 


IF( IDYNM .EQ. 1 .AND. JDYN .EQ. 1 ) THEN 
CALL SEARCH 

'a^szr* /REA( idyna) ' iwr( ielv) ' ■ i/NFD/ i ^ nellv / 1 ) 

( EEA(IVELl),REA(IDYNV),INr(IELV) / l / NFD / l,NELLV,I ) 



no o o non no o n non non 


C 


END IF 


********************************************************************** 
IF( IC.EQ.75 .AND. JINC.LT. JLARGE ) THEN 

DO 90 I = 1 , NELNOD 
CALL NUL (VTRANS, 4 ) 

CALL NUL (TTRANS, 9 ) 

CALL TSH04N (VTRANS, TTRANS, ETRANS,CTRANS / PEA(ICOR) ,1, 

* MAXCRD, NELNOD, SIGN,IFLAG) 

11= NELSTR * IDP *(I - 1) 

CALL SHTRAN(REA(KGEPNO+Il) , VTRANS, ETRANS, SIC2J, NELSTR) 

CALL SHIRAN ( REA( KIGENCH-I 1 ) , VTRANS, ETRANS, SIGN, NELSTR) 

CALL SHTRAN (REA(KGSINO+-Il) , VTRANS, TTRANS, SIC2J, NELSTR) 

CALL SHTRAN(REA(KIGSNCH-I1) , VTRANS, TTRANS, SI®,NELSTR) 

CALL SHTOAN(REA(KGTDNO+Il) , VTRANS, TTRANS, SIGN, NELSTR) 

CALL SHIRAN(REA(KTDSM>I1) , VTRANS, TTRANS, SIGN, NELSTR) 

*** 

DO 70 K = 1 ,MAXSTR 

Kl= NELSTR * IDP * (NELSTR *(I - 1)+(K - 1)) 

CALL SHTRAN(REA(KDMTNCH-K1) , VTRANS, TTRANS, SIGN, NELSTR) 

70 CONTINUE 

12= NELSTR * NELSTR * IDP *(I - 1) 

CALL TRANSP(REA(KDMTN0+I2) , NELSTR) 

CALL TRANSP( ETRANS, 3) 

CALL MATINV(ETRANS,3,3,ISW) 

DO 80 J = 1 ,MAXSTR 

Jl= NELSTR * IDP * (NELSTR *(I - 1)+(J - 1)) 

CALL SHTRAN(REA(KDMINO+Jl) , VTRANS, ETRANS, SIGN, NELSTR) 

80 CONTINUE 

90 CONTINUE 

********************************************************************** 
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C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ELSE I F ( IC.EQ.98 .AND. 

& JINC.LT. JLARGE ) THEN 


************ 


CALL TEM02N(CTRANS,REA(ICOR) ,MAXCRD,NELNOD) 


E N D I F 


IF( JINC.GE. JLARGE ) 


THEN 

********************** 
UPDATE GEOMETRY FOR LARGE DEFORMATION ANALYSIS 


BEGINNING OF 
INCREMENT (ISTEP = — 1) j 

Xi = XO + Ui 

MID- INCREMENT (ISTEP = 0 ): 

Xi+1/2 = XO + Ui + l/2*(si)*(Ui+l - Ui) 

END OF INCREMENT ( ISTEP = 1 ) : 

Xi+1 = XO + Ui + (si)*(Ui+l - Ui) 

********************** 


HALF = 0.5D0 

ONE = 1.0D0 


********* 


********** 


IF( NDIMEN.EQ.MAXNFR ) THEN 
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NUMBER OF COORDINATES IS EQUAL 
TO TOE NUMBER OF DEGREES-OF- 
FREEDGM (CONTINUUM ELEMENTS) 


COMPUTE GEOMETRY AT THE 
BEGINNING OF TOE INCREMENT 


CALL ADD( REA( ICOR) , REA( ICOR) , REA( IXRL ) ,NDIMEN*NELNOD) 
IF( ISTEP.EQ.O ) THEN 


CCMPUTE HALF OF INCREMENTAL 
DISPLACEMENTS TO OBTAIN 
MID-INCREMENT GEOMETRY 


CALL ADDSMU( REA( ICOR) , ONE, REA( ICOR) , HALF, REA(IXIRL) , 
& NDIMEN*NELNOD) 

ELSE I F( ISTEP.EQ. 1 ) THEN 


USE TOTAL INCREMENTAL 
DISPLACEMENTS TO OBTAIN END OF 
INCREMENT GEOMETRY 


CALL ADD ( REA( ICOR) ,REA( ICOR) ,REA( IXIRL) ,NDIMEN*NELNOD) 
E N D I F 


ELSE IF ( MAXNFR . GT . NDIMEN ) THEN 


NUMBER OF DEGREES -OF-FREEDOM 
IS GREATER TOAN TOE NUMBER OF 
COORDINATES (BEAM AND S HELL 
ELEMENTS) 


C 


DO 10000 I=1,NELNQD 


I ICOR = ICOR + (I-1)*NELCRD*IDP 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

10000 

c 

c 

c 

c 

c 

c 

c 


IIXRL - IXRL + ( I- 1 ) *MAXNFR* IDP 
IIXIRL = IXIRL + (I-1)*MAXNFR*IDP 


COMPUTE GEOMETRY AT THE 
BEGINNING OF THE INCREMENT 


& 


CALL AEO( REA( IICOR) ,REA( IICOR) , 
REA( IIXRL) ,NDIMEN ) 


IF( ISTEP.EQ.O ) 


THEN 


COMPUTE HALF OF INCREMENTAL 
DISPLACEMENTS TO OBTAIN 
MID-INCREMENT GEOMETRY 


CALL ADDSMU( REA ( IICOR) , ONE ,REA( IICOR) , 

HALF, REA( IIXIRL) ,NDIMEN) 

ELSE I F( ISTEP.EQ.l ) THEN 


USE TOTAL INCREMENTAL 
DISPLACEMENTS TO OBTAIN END OF 
INCREMENT GEOMETRY 


CALL ADD ( REA( IICOR) ,REA( IICOR) , 

1 REA( IIXIRL) ,NDIMEN ) 

E N D I F 

CONTINUE 

IF( IC.EQ.75 ) THEN 


UPDATE TRANSFORMATIONS 


DO 20000 1=1, NELNOD 
CALL NUL (VTRANS, 4 ) 
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nno n n nnnnn 


CALL NUL (TTRANS, 9 ) 

CALL TSH04N(VTRANS,TIRANS,ETRANS,CTRANS,FEA(ICOR) ,1, 

& MAXCRD,NELNOD, SIGtf,IFLAG) 

C 

11= NELSTR * IDP *(I - 1) 

C 

CALL SHIRAN(REA(KGEPNO^Il) ,VTRANS,ETRANS,SH3J, NELSTR) 
CALL SHIRAN (REA(KI(22CH-I1) ,VTRANS,ETRANS, SIGN, NELSTR) 
CALL SHTRAN(REA(KGSINCH-I1) ,VTRANS, TTRANS, SIGN, NELSTR) 
CALL SHTRAN(REA(KIGSNCH-I1) ,VIRANS, TTRANS, SI®I, NELSTR) 
CALL SHTPAN(REA(KGTDN(X-I1) ,VTRANS, TTRANS, SIGN, NELSTR) 
CALL SHIRAN ( REA (KTDSNO+I1) ,VTRANS,TTRANS, SION, NELSTR) 
C 


DO 15000 K = 1 ,MAXSTR 

Kl= NELSTR * IDP * (NELSTR *(I - 1)+(K - 1)) 
CALL SHIRAN (REA(KDMTNCH-Kl) ,VTRANS, TTRANS, SIGN, NELSTR) 
15000 CONTINUE 
C 


C 


12= NELSTR * NELSTR * IDP *(I - 1) 


CALL TRANSP(REA(KDMTNCHT2) , NELSTR) 

CALL TRANSP ( ETRANS , 3 ) 

CALL MATINV(ETRANS,3,3,ISW) 

C 

DO 16000 J = 1 ,MAXSTR 

Jl= NELSTR * IDP * (NELSTR *(I - 1)+(J - 1)) 
CALL SHIRAN (REA(KDNTNCH-Jl) ,VTRANS, ETRANS, SIQJ, NELSTR) 
16000 CONTINUE 
C 

20000 CONTINUE 
C 

ELSE IF( IC.EQ.98 ) THEN 


UPDATE BEAM TRANSFORMATION 


CALL TBM02N( CTRANS,REA( ICOR) ,MAXCRD,NELNOD ) 

E N D I F 

ELSE IF( NDIMEN.CT.MAXNFR ) THEN 


SOMETHING IS WRONG! !!!!!!!! 
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c 


CALL QUIT( 'NO. 'DIME', 'NS .','CT. ','NO. ','DOF ', 0 ) 

E N D I F 

E N D I F 
C 

C 

RETURN 

END 


Note that the coordinate transformations necessary for the shell elements 
take place in this subprogram. 

Th® following subroutine INITI1 calculates pointers for the finite 
element database: 


C-SUBROUTINE= INITI1 CALLED BY SUBROUTINE 'BULKIN' 

SUBROUTINE INITI1 
1 (RWORK , IWORK ,ISIZE ) 

C 

C ********************************************************************** 

c 

C ALLOCATES CORE FOR DATA INPUT AND ZEROES OUT CORE 
C 

c ************************************* 

C VARIABLES 
C — 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IAEIM /START6/ ELEMENT ARRAY FOR NODAL ACCELERATION 

IBASE /HARMON/ HARMONIC BASE MOTION MAGNITUDE AND PHASE 

IBETA /START7/ ELEMENT BETA MATRIX 

IBSECT /BSECT/ POINTER TO BEAM SECTION PROPERTY SETS 

IBTTC /START5/ POINTER FOR THE LAST ADDRESS 

ICH /START6/ ELEMENT MATERIAL PROPERTY ARRAY (LOCAL) 

ICHAR /START1/ ELEMENT MATERIAL PROPERTY ARRAY (GLOBAL) 

ICMPOR /HARMON/ POINTER TO THE COMPLEX MODAL FORCE 
ICHHFN /HARMON/ POINTER TO THE COMPLEX MODAL H-FUNCTICN 
ICMRES /HARMON/ POINTER TO THE COMPLEX MODAL RESPONSE 
ICNFOR /HARMON/ POINTER TO THE COMPLEX NODAL FORCE VECTOR 
ICQLPT /START5/ POINTER TO ARRAY DEFINING THE LOCATIONS OF THE 

COLUMN ELEMENTS THAT ARE JUST ABOVE THE DIAGONAL 
POSITIONS, FOR A GLOBAL ARRAY STORED IN PROFILE FORM 
ICON /START7/ ELEMENT CONNECTIVITY ARRAY 
ICOP /START1/ 
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c 

ICOR 

/START6/ 

c 

ICSTNO 

/START4/ 

c 

IDASH 

/ADDVAL/ 

c 

IDET 

/START7/ 

c 

IDFINC 

/START4/ 

c 

IDFTCT 

/START4/ 

c 

IDIAG 

/START5/ 

c 



c 

IDINC 

/START4/ 

c 

IDINCP 

/START5/ 

c 

IDIST 

/START1/ 

c 

IDMINO 

/START4/ 

c 

IDP 

/MACHIN/ 

c 

IDSITR 

/START4/ 

c 

IDSX1 

/START4/ 

c 

IDSX2 

/START4/ 

c 

IETOT 

/START4/ 

c 

IDUP 

/START2/ 

c 

IDYNA 

/START4/ 

c 

IEQCST 

/START4/ 

c 

IEQPSI 

/START6/ 

c 



c 

IEQPST 

/START6/ 

c 

IETM 

/START6/ 

c 

IEXT 

/START3/ 

c 

IFORCE 

/START4/ 

c 

IFORIN 

/STARTS/ 

c 

IFREQ 

/SHIFT / 

c 

IGEPNO 

/START8/ 

c 

IGNMS 

/EIGEN/ 

c 

IGSINO 

/START8/ 

c 

IGTDNO 

/START8/ 

c 

IHARM 

/HARMON/ 

c 

IICSNO 

/START4/ 

c 

IIGENO 

/START8/ 

c 



c 

IIGSNO 

/START8/ 

c 



c 

IIQMNO 

/START4/ 

c 



c 

IIPSNO 

/START4/ 

c 



c 

IISNNO 

/START4/ 

c 



c 

IISTNO 

/START4/ 


NODAL COORDINATE ARRAY 
NODAL CREEP STRAIN 

POINTER TO TOE ADDED DASHPOT DAMPING VALUES 

DETERMINANTS ARRAY AT INTEGRATION POINTS 

INCREMENTAL DEFORMATION GRADIENT ARRAY 

TOTAL DEFORMATION GRADIENT ARRAY 

POINTER TO DIAGONAL COMPONENTS OF GLOBAL STIFFNESS 

ARRAY STORED IN PROFILE FORM 

INCREMENTAL DISPLACEMENT ARRAY 

ITERATION VECTOR FOR INCREMENTAL DISPLACEMENT 

DISTRIBUTED LOAD ARRAY 

NODAL DMATRIX ARRAY ALLOCATION 

WORD LENGTH ( 1 REAL WORD = IDP INTEGER WORD ) 

DISTRIBUTED LOAD INPUT ARRAY 

WORKING ARRAY FOR DYNAMICS 

WORKING ARRAY FOR DYNAMICS 

TOTAL DISPLACEMENT VECTOR 

DUPLICATED NODE CONNECTIVITY 

GLOBAL ACCELERATION ARRAY 

INCREMENTAL NODAL EQUIVALENT PLASTIC 
STRAIN BY LAYER 

TOTAL NODAL EQUIVALENT PLASTIC STRAIN BY LAYER 


HIGH FREQUENCY BOUNDS FOR POWER SHIFT 
TOTAL GENERALIZED NODAL STRAIN COMPONENTS 

TOTAL GENERALIZED NODAL STRESS COMPONENTS 

HARMONIC NODAL FORCE MAGNITUDE AND PHASE 

INCREMENTAL GENERALIZED NODAL STRAIN 
COMPONENTS 

INCREMENTAL GENERALIZED NODAL STRESS 
COMPONENTS 

INCREMENTAL NODAL BACKSTRESS (SHIFT TENSOR) 
COMPONENTS BY LAYER 

INCREMENTAL NODAL PLASTIC STRAIN COMPONENTS 
BY LAYER 

INCREMENTAL NODAL STRAIN COMPONENTS 
FOR SHELL ELEMENTS BY LAYER 
INCREMENTAL NODAL STRESS COMPONENTS 
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c 

IITSNO 

/START4/ 

c 

IKBC 

/START3/ 

c 

IKBCR 

/START7/ 

c 

ILAST 

/START5/ 

c 

ILPRNT 

/ALGEM/ 

c 

IMASDI 

/START5/ 

c 



c 

IMASNO 

/START6/ 

c 

IMASS 

/ADDVAL/ 

c 

IMASUP 

/START5/ 

c 



c 

INDISP 

/PERIOD/ 

c 

INEL 

/START1/ 

c 

INFORC 

/PERIOD/ 

c 

INLV 

/START2/ 

c 

INOD 

/START2/ 

c 

IOMEG 

/EIGEN/ 

c 

IGMENO 

/START4/ 

c 



c 

IPDISP 

/PERIOD/ 

c 

IPPORC 

/PERIOD/ 

c 

IPOST 

/START1/ 

c 

IPP 

/START6/ 

c 

IPRES 

/START1/ 

c 

IPRINT 

/START1/ 

c 

IPSTNO 

/START4/ 

c 



c 

IREAC 

/START5/ 

c 

IRESID 

/START4/ 

c 

IRL 

/START5/ 

c 

IRLB 

/STARTS/ 

c 

ISBC 

/START3/ 

c 

ISBCR 

/START3/ 

c 

ISHIFT 

/SHIFT / 

c 

ISIG 

/START6/ 

c 

ISIGNO 

/START4/ 

c 



c 

ISIZE 

ARGUMENT 

c 

ISNOD 

/START6/ 

c 

ISPRI 

/ADDVAL/ 

c 

ISWELL 

/START4/ 

c 

ITDSNO 

/START4/ 

c 

ITEM 

/START2/ 

c 

ITEMDF 

/START2/ 


FOR SHELL ELEMENTS BY LAYER 

inc reme ntal THERMAL STRAIN AT NODES 

POINTER FOR THE BOUNDARY CONSTRAINTS 

POINTER FOR THE BOUNDARY CONSTRAINT BUFFER 

LAST ADRESS USED IN THE WORKING AREA 

LINEPRINTER ID. NUMBER 

POINTER TO DIAGONAL COMPONENTS OF GLOBAL 

CONSISTENT MASS ARRAY STORED IN PROFILE FORM 

NOD AL A RRAY FOR LUMPED MASS MATRIX 

POINTER TO THE ADDED MASS VALUES 

POINTER TO UPPER TRIANGULAR PART OF GLOBAL 

CONSISTENT MASS ARRAY STORED IN PROFILE FORM 

PERIODIC DISPLACEMENT INPUT ARRAY 

ELEMENT CONNECTIVITY 

PERIODIC NODAL FORCE INPUT ARRAY 


TOTAL NODAL BACKSTRESS (SHIFT TENSOR) COMPONENTS 
BY LAYER 

PERIODIC DISPLACEMENT PERIOD ARRAY 
PERIODIC NODAL FORCE PERIOD ARRAY 
FLAG FOR POST FILE GENERATION 

FLAG FOR PRESSURE LOADING 
FLAG FOR PRINT OPTION BUFFER 
TOTAL NODAL PLASTIC STRAIN COMPONENTS 
BY LAYER 

NODAL EACTIQN FORCE ARRAY 
NODAL RESIDUAL FORCE ARRAY 


STRESS BOUNDARY CONDITION INDEX ARRAY 
STRESS BOUNDARY CONDITION INPUT B U F FER 
POINTER FOR THE LIST OF POWER SHIFT POINTS 
NODAL TOTAL STRESS ARRAY 
TOTAL NODAL STRESS COMPONENTS FOR 
SHELL ELEMENTS BY LAYER 

SIZE PARAMETER FOR THE CURRENT WORKING STORAGE 
POINTER TO THE AEDED SPRING STIFFNESSES 
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c 

ITI 

/START3/ 

c 

ITR 

/START3/ 

c 

ITRAC 

/START3/ 

c 

ITRACR 

/START7/ 

c 

ITRAN 

/START3/ 

c 

ITRANR 

/START?/ 

c 

ITS1NO 

/START4/ 

c 

ITYP 

/START1/ 

c 

IUPTRI 

/START5/ 

c 



c 

IVELM 

/START6/ 

c 

rvswro 

/START4/ 

c 

IWNQD 

/START6/ 

c 

IWDRK 

ARGUMENT 

c 

IWINOD 

/START4/ 

c 

IXC 

/START6/ 

c 

IXIRL 

/START6/ 

c 

IXK 

/START6/ 

c 

IXM 

/START6/ 

c 

IXP 

/START6/ 

c 

IXRL 

/START6/ 

c 

JPEROD 

/PERIOD/ 

c 

JDIST 

/CONTRO/ 

c 

JSUB 

/CGNTRO/ 

c 

KBASE 

/HARMON/ 

c 

KBSECT 

/BSECT/ 

c 

KCSTNO 

/START6/ 

c 

KCSTRN 

/START6/ 

c 

KDASH 

/ADDVAL/ 

c 

KDMAT 

/START6/ 

c 

KDMINO 

/START6/ 

c 

KEQPSI 

/START6/ 

c 

KEQPST 

/STARTS/ 

c 

KGEPNO 

/START8/ 

c 

KGEPS 

/START8/ 

c 

KGSIG 

/START8/ 

c 

KGSINO 

/START8/ 

c 

KGTDNO 

/START8/ 

c 

KGTDST 

/START8/ 

c 

KHARM 

/HARMON/ 

c 

KICSNO 

/START6/ 

c 

KICSTR 

/START6/ 

c 

KK2NO 

/START8/ 

c 

KIGEPS 

/START8/ 

c 

KIGSIG 

/START8/ 


POINTER FOR NODAL FORCE INTEGER VALUES 
POINTER FOR NODAL FORCE REAL VALUES 
POINTER ARRAY FOR NODAL TRANSFORMATION 
NODAL COORDNATE TRANSFORMATION BUFFER 
THERMAL STRAIN ( TOTAL ) AT NODES 

POINTER TO UPPER TRIANGULAR PART OF GLOBAL 
STIFFNESS ARRAY STORED IN PROFILE FORM 


NO LONGER USED IN VERSION 1.7 OR UP 


HARMONIC BASE MOTION NODE AND D.O.F. LIST 
POINTER TO NODAL LIST OF BEAM SECTIONS 

POINTER TO THE LIST OF D.O.F. WITH ADDED DAMPING 


ELEMENT WORK AREA FOR GENERALIZED INITIAL STRESS 
GENERALIZED INITIAL STRESS AT INTEGRATION POINTS 
HARMONIC NODAL LOAD NODE AND D.O.F. LIST 
ELEMENT WORK AREA FOR CREEP STRAIN INCREMENT 
CREEP STRAIN INCREMENT AT INTEGRATION POINTS 
ELEMENT WORK AREA FOR GENERALIZED STRAIN 
GENERALIZED STRAIN AT INTEGRATION PONTS 
GENERALIZED STRESS AT INTEGRATION POINTS 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


KIGSND /STAFT8/ 
KIPSNO /START6/ 
KIPSTR /START6/ 
KISNNO /START6/ 
KISTNO /START6/ 
KISTRN /START6/ 
KISTRS /START6/ 
KITSNO /START6/ 
KITSTR /START6/ 
KMASS /ADDVAL/ 
KPSTNO / STARTS / 
KPSTRN /START6/ 
KSHIPT /SHIFT / 
KSPRI /ADDVAL/ 
KTDSNO /START6/ 
KTSTNO /START6/ 
KTSTRN /START6/ 
LFREQ /SHIFT / 
MAXBET STACK 
MAXBSP /MAXIMA/ 
MAXCHR /MAXIMA/ 
MAXCMP /MAXIMA/ 
MAXCRD /MAXIMA/ 
MAXEMT STACK 
MAXINT /MAXIMA/ 
MAXLAY /MAXIMA/ 
MAXNFR /MAXIMA/ 
MAXNLV /MAXIMA/ 
MAXNOD /MAXIMA/ 
MAXPRS /MAXIMA/ 
MAXSTR /MAXIMA/ 
MAXWRK /MAXIMA/ 
NBASE /PARAM/ 
NBC /PARAM/ 
NBSECT /PARAM/ 
NDASH /PARAM/ 
NDUP /PARAM/ 
NETm /PARAM/ 
NEXT /PARAM/ 
NPOUND /SHIFT/ 
NFRSUB /SUBSTR/ 
NHARM /PARAM/ 
NLVSUB /SUBSTR/ 
NMASS /PARAM/ 
NMAX /PARAM/ 


ELEMENT TORK AREA. FOR GENERALIZED STRESS 

ELEMENT TORK AREA FDR INCREMENTAL PLASTIC STRAIN 

INC.PLASTC STRAIN AT INTEGRATICDN POINTS 

ELEMENT TORK AREA FDR INC. STRAIN 

ELEMENT TORK AREA FDR INC. STRESS 

INC. STRAIN AT INTEGRATION POINTS 

INC. STRESS AT INTEGRATION POINTS 

ELEMENT TORK AREA FDR INC. THERMAL STRAIN 

INC. THERMAL STRAIN AT INTEGRATION POINTS 

POINTER TO THE LIST OF D.O.F. WITH AIDED MASS 

ELEMENT TORK AREA FDR PLASTIC STRAIN 

PLASTIC STRAIN AT INTEGRATION POINTS 

POINTER FDR THE NUMBER OF MODES ON EACH SHIFT 

POINTER TO THE LIST OF D.O.F. WITH ADDED STIFFNESS 


I£W FREQUENCY BOUNDS FDR POWER SHIFT 
MAXIMUM NUMBER OF BEAM SECTION PROPERTIES 


MAXIMUM NUMBER OF INTEGRATION POINTS / ELEMENT 
MAXIMUM NQMBER OF INTEGRATION LAYERS / ELEMENT 
MAXIMUM NUMBER OF NODAL D.O.F. / NODE 

MAXIMUM NUMBER OF NODES / ELEMENTS 

MAXIMUM NUMBER OF DIST. LOAD ENTRIES / ELEMENT 

MAXIMUM NUMBER OF STRESS COMPONENTS / NODE 

NUMBER OF D.O.F. WITH HARMONIC BASE MOTION IMPOSED 

NUMBER OF BOUNDARY CONDITIONS 

NUMBER OF BEAM SECTION PROPERTY SETS 

NUMBER OF D.O.F. WITH AIDED DAMPING 

NUMBER OF DUPLICATED NODAL POINTS 

TOTAL NUMBER OF ELEMENTS 

NOT USED IN VERSION 2.0 

NUMBER OF EIGENVALUES/EIGENVECTORS FOUND IN P-SHIFT 
NOT USED IN VERSION 2.0 

NUMBER OF D.O.F. WITH HARMOJIC NODAL FORCES APPLIED 

NOT USED IN VERSION 2.0 

NUMBER OF D.O.F. WITH AIDED MASS 
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C NNODE /PARAM/ NUMBER OF NODE IN THE MESH 

C NOFFST /SHIFT/ NUMBER OF OFFSETS FOR NEW EIGENVALUES/EIGENVECTORS 

C NPRINT /PARAM/ NUMBER OF PRINT OPTIONS 

C NSBC /PARAM/ NUMBER OF STRESS BOUNDARY CONDITIONS 

C NSBNC /PARAM/ 

C NSHIFT /PARAM/ NUMBER OF POINTS FOR POWER SHIFT 

C NSPRI /PARAM/ NUMBER OF D.O.F. WITH AIDED STIFFNESS 

C NSUB /PARAM/ NOT USED IN VERSION 1.7 AND UP 

C NSUMAX /MAXIMA/ NOT USED IN VERSION 1.7 AND UP 

C NSUMOH /PARAM / SUM OF PROFILE COLUMN HEIGHTS FOR UPPER 
C TRIANGULAR PART OF GLOBAL ARRAY STORED IN PROFILE FORM 

C NTIE /PARAM/ NUMBER OF TYING CONSTRAINT DATA SETS 

C NTRAC /PARAM/ NUMBER OF NODAL FORCE VECTOR INPUT 

C NTRAN /PARAM/ NUMBER OF NODAL COORDINATE TRANSFORMATION DATA 

C NTYPE /PARAM/ 

C QMEGB /HARMON/ FREQUENCY OF EXCITATION FOR HARMONIC BASE MOTION 

C GMEGH /HARMON/ FREQUENCY OF EXCITATION FOR HARMONIC NODAL LOADS 

C 

C ********************************************************************** 

c 

IMPLICIT REAL*8 (A-H,0-Z) 

REAL*4 RWORK 
C 

Q it************************************************************* 

c 

COMMON / ADDVAL / ISPRI ,KSPRI ,IDASH ,KDASH ,IMASS ,KMASS 
COMMON / ALGEM / ICREAD,rLPRNT, JLPRNT,ICONSL,IPOSTF,ISCRAF, 

1 IPLOTB, IRSTRT, JCREAD, IPVARS, IPSETS, IFILEX, 

2 PI ,LINE ,LINE2 

COMMON / CQNTRO / JEND , JITER ,JTEMP , JPRINT, JP ,JSUB , 

1 JINC , JREST , JSAVE , JREDIM, JAUTO ,JPOST , 

2 JBACK , JOPTIM, JCREEP , JDIST , JCONST, JDYN , 

3 NCNISO, ITHERM, ITRIG ,IDYNM , JREPOT, JTANGE, 

4 JTHERM, JPORCE, JUTEMP, JUCOEF, JDISTS, JUHOOK, 

5 JDERIV, JUBOUN,IDSTOP,INrSTR, JPLAST, JBAND , 

6 JFRONT, JDEPOR, JEMBED,ITEST f JUlSF /IFBFGS/ 

7 IFSCNT,IFLINE,IFPIRNr / ICCMPS / IPCCNJ / JEIGEN, 

8 IFBODY, IFGRAV, IFCENT, JDAMP ,II3YN ,ISTAT , 

9 JFDSXX, JISTIF, JCENIM, JFINIT, JLARGE, JFOLCW, 

+ JWKSLP, JPRES , JCDUM2, JCDUM3 

COMMON / DAMP / DAMPF(3) 

COMMON / EIGEN / IEQJVC, IGNMS ,ICMEG , IMXNO, IDYNMD, ISTRT2 , 

1 IPTAR , IPTBR , IPTVED, IMDAM f ICMEGD 

COMMON / MODSUP / IMFORO,IMDISO,IMVELO,IMFaU,IMDISl,IMVELl 
COMMON / HARMON / OMEOI , IHARM ,KHARM , QMEGB ,IBASE , XBASE , 
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1 

2 


COMMON / PERPAR / 

1 

COMMON / PERPTR / 


1 

2 


1 

2 


COMMON / PERDAT / 

l 

COMMON / POWER / 


COMMON / 
COMMON / 


PULSES / 
MAXIMA / 


1 
2 

3 

4 

COMMON / PARAM / 

1 

2 

3 

4 

5 

6 
7 

COMMON / 

COMMON / 

COMMON / 

COMMON / 

COMMON / 

1 

COMMON / 

COMMON / 

1 
2 


TMARCH / 
PERIOD / 
SUBELM / 
SHIFT / 
SUBTYP / 

BSECT / 
START1 / 


COMMON / 
COMMON / 


START2 / 
START3 / 


COMMON / START4 / 


1 

2 

3 

4 


ICNFOR, ICMFOR, ICMRES , ICHHFN, ICBHFN, ICBEXC, 
ICCMAT 

IPTYPE( 32) ,NPTYPE,NPVARS,NPSETS, JPERT , 
NPVCQN , NPPOO 8 , NPP009 , NPPO 10 , NPPO 1 1 , NPPO 12 
IMEANS , ISTDEV, IPDAIA, IVTYPE , ISKIP , IREDEF, 
IDINCO , IREACO , IRESDO , IDGRP , ISTIFO , IMASSO , 
IPPO 13 , IQMEGO , ICMEGP, ICMEGK, IETAK , IZETAK 
IXCOOR, IXCHAR, IXPORC,KXPORC, IXDIST,KXDIST, 
IXTEMP , JXTEMP , IXBEAM, IXFVEC , IXSPRI , KXSPRI , 
IXPRES , IXPREF , IXP015 , IXP016 , IPWBEG, IPWEND 
IELPHI , IEL1NM, IEPSMO, ISIGMO, IHFN ,IHFC , 
IFBP ,ISPP , ISFF , ISQQ ,ICQQ ,ITNM , 
IPSF , IPSD 

IFULSE , KPULSE , IPOTIM, IPDFXOR 
MAXCRD , MAXNFR , MAXNOD , MAXSTR , MAXCHR , MAXPRS , 
MAXLAY,MAXINr,MAXWRK,MAXNLV,NSUMAX,MAXCMP, 
MAXBSP,MAXCHR / MAXTEM,MAXEIM / MAXLWK,MAXDMr / 
MAXFRN , MAXBET , MAXVAR , MAXSET , MAXEAN , MAXORD , 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX , 
NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 
NPRINT / NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 
NSHHT,NSBPGS,NGMRS ,NSPRI ,NMASS / NDASH , 
NDYNMD,NSBNC ,NSUPER,NHARM ,NBASE ,NINC , 
NITER / NPSPTS,NFTDPTS,NPULSE,NPDPTS,NHARD , 
NSUMOH,NDIMEN,NMONIT,NPAR40,NPAR41,NPAR42, 
NPAR4 3 , NPAR4 4 , NPAR4 5 , NPAR4 6 , NPAR4 7 , NPAR4 8 
DALPHA,DBETA ,DGAMMA 

JPEROD( 2 ) , IPDISP , IPFORC , INDISP , INFORC 
ISUBEL, ISUBNP,ISUBPT,NSDAIA, ISUBTY, IEMBED 
ISHIFT , KSHIFT , IFREQ ,LFREQ , MOFFST, NPOUND 
NSUCRD,NSUNFR,NSUNOD,NSUSTR,NSUCHR,NSUPR , 
NSUINr,NSULV , NSUTEM, NSUNDI , NSUSHR , NSUIDF 
IBSECT , KBSECT 

IELPRM, ITYP ,INEL ,ICHAR ,IPRES ,ISTRS , 
ISTRN ,ICOP , IPRINT, IPOST ,IDIST ,LLEAN , 
IBPRES , IBNORM, IMONIT, IST116 , IST117 , IST118 
INOD , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
IKBC , ITI ,ITR ,ITRAN ,ITRAC ,IEXT , 

I SBC ,ISBCR 

IDINC , IDTOT , IPORCE^IRESID, IWINOD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS, IISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTOO, ICSTOO, ITSTNO, 
IISTNO, IISNNO, IIPSNO, IICSNO, IITSNO, IDMAT , 
IDMTNO, IEQCST, ICMENO, IIOMNO, ITDSNO, IVSWIO, 


NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 

NESSUS 
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c 

c 


5 

6 
7 

COMMON / 

1 

2 

3 

COMMON / 

1 

2 

3 

4 

5 

6 

7 

8 

COMMON / 
COMMON / 

1 

2 

COMMON / 

1 

COMMON / 
COMMON / 
COMMON / 


START5 / 


START6 / 


STAPT7 / 
START8 / 


START9 / 

SUBSTR / 
MACHIN / 
ERRORS / 


IDYNV , IDYNA ,IDSX1 ,IDSX2 ,IDSITR,ISWELL, 
IEQCSI , IPREF , IDSX3 , IYTEID, IDFINC, IDFTOT, 
IST443 , IST444 , IST445, IST446 , IST447 , IST448 
IRL , IREAC , IES ,IAB ,IB®1 ,ISRL , 

IBTLC , ISKM , ILAST , IRLB ,IDINCP,IFORIN, 

IOP , IDAM , IMASMT, IDIAG ,IUPTRI,ICQLPT, 

IMASDI , IMASUP, IST521, IST522 , IST523 , IST524 
IELV , ICOR , ISIG , IEPS ,IWNOD ,ISNOD , 

IENCD , IETM , ICH ,IPP ,IXRL ,IXIRL , 

IXP , IXK ,KPSTRN,KCSTRN,KTSTRN,KISTRS f 

KI STRN , KIPSTR , KICSTR , KITSTR , KPSTNO , KCSTNO , 
KTSTND,KISTNO,KISNNO,KIPSNO,KICSNO,KITSNO, 
IMASNO,IMNOD , IEQPST, IEQPSI , KEQPST , KEQPSI , 
KEMAT ,KEMINO,KTDSNO,KITOST / IXM ,IXC , 
IVELM ,IAELM ,IMASEL,KYIEUD,IST647,IST648, 
IST649, IST650 , IST651 , IST652 , IST653 , IST654 
ICON , IKBCR , ITRACR, ITRANR, IBETA , IDET 
KGEPS ,KIGEPS,KGSIG ,KIGSIG,KGroST, 

ICHPNO, IIGENO, IGSINO, IIGSNO, IGITMO, 

KGEPNO , KIC2NO , KGS INO , KIGSNO , KGn»IO 
KEQCSI,KICMNO,KSWI2IO,KIME J ND f KIDFNO,KDUMMY, 
KEQCST,KCMENO / KVSWIO, IST910, IST911, IST912 
NLVSUB( 10),NFRSUB( 10) 

IDP 

IERR 


********************************************************************** 


C 


DIMENSION RWORK ( ISIZE ) 


IWDRK ( ISIZE ) 


DIMENSION YIELDC( 3 ) 

C 

C *** —2— ************************************************************** 
C 


MAXCRD = 1 
MAXNFR = 2 
MAXNOD = 1 
MAXSTR = 1 
MAXCHR = 1 
MAXH7T = 2 
MAXPRS = 1 
MAXLAY = 1 
MAXBET = 1 
MAXWRK = 1 
MAXDMT = 1 
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MAXNLV = 1 
MAXCMP = 1 
MAXBSP = 6 
MAXLWK = 1 
C 

MAXELM = NET .EM + NDUP + NTIE 
C 

YIELDC(l) = 1.00EH-36 
YIELDC(2) = 0.00D+00 
YIELDC( 3) = 0.00CH-00 


**★★***★*★ 


MAXNLV = NSUMAX 
IELPRM = 1 

IF(NTYPE.EQ.O) GO TO 2 


t**** 


DO 1 I = 1 ,NTYPE 
IC = I 

IS1 = IELPRM + (IC-1)*13 + 1 

0 **★ 


IF( MAXCRD.LT. IWORK(ISl) ) MAXCRD = IWORK(ISl) 
IF(MAXNFR.LT. IWDRK( IS1+1) ) MAXNFR = IWORK(ISl+l) 
IF(MAXN0D.LT.IW0RK(ISl+2) ) MAXNOD = IWORK(ISl+2) 
IF(MAXSTR.LT.IW0RK(ISl+3)) MAXSTR = IWORK(ISl+3) 
IF(MAXCHR.LT.IW0RK(ISl+4) ) MAXCHR = IWOKK(ISl+4) 
IF (MAXINT. LT.IWORK(ISl+5) ) MAXINT = IWORK(ISl+5) 
IF(MAXPRS.LT.IW0RK(ISl+6) ) MAXPRS = IWORK(ISl+6) 
IF(MAXLAY .LT.IWORK(ISl+7) ) MAXLAY = IWORK(ISl+7) 
IF(MAXCMP.LT.IWORK(ISl+8) ) MAXCMP = IW0RK(ISl+8) 

MWRK = IWDRK( IS1+3 ) * 
IF(MAXWRK.LT.MWRK) MAXWRK = MWRK 


MAXINT 


IF ( MAXNLV . LT . MNLV ) 


MNLV = IW3RK( IS1+1) *IWORK( IS 1+2 ) 
MAXNLV = MNLV 


1 

IF ( MWBE . GT . MAXBET ) 


1 

IF ( MAXLWK . LT . MLWK ) 


MWBE = IWORK( IS1+1 ) *IWDRK( IS1+2 ) 

* IW0RK(ISl+3)* MAXINT 
MAXBET = MWBE 

MLWK = MAXINT *IWORK(ISl+7) 

* IWORK(ISl+8) 

MAXLWK = MLWK 


MDMT = IW0RK( IS1+3) *IWORK( IS 1+3 ) 
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1 * MAXINT 

IF(MDtC.CT.MAXDM') MAXDMT = MDMT 

********************************************************************** 

1 CONTINUE 

2 CONTINUE 

MAXTEM = MAXLAY 


ITYP 

= HAST 

+ 1 


INEL 

= ITYP 

+ MAXED! 


ICON 

= INEL 

+ MAXNOD * 

MAXELM 

ICOP 

= ICON 

+ MAXNOD * 

MAXED! 


*** 

IDIST = ICOP 

IF( JFRQNT .NE. 0 ) IDIST = ICOP + MAXED* 

IF( JFRONT .EQ. 0 ) IDIST = ICOP + NSUMAX * NSUB * 3 

IF( JDIST .GT. 0 ) IDIST = IDIST + MAXED* 

HAST = IDIST + MAXED* 

********************************************************************** 
*** CORE ALLOCATION FOR BEAM SECTION PROPERTY SETS *** 

********************************************************************** 

IF ( NBSECT .EQ. 0 ) GO TO 110 

IBSECT = HAST 

KBSECT = IBSECT + NBSECT * MAXBSP * IDP 
HAST = KBSECT + NBSECT 

IF ( HAST. EQ. 2* (HAST/2)) HAST = HAST + 1 
110 CONTINUE 

********************************************************************* 

*** CORE ALLOCATION FOR POWER SHIFT IN EIGEN ANALYSIS *** 

********************************************************************* 

IF ( NSHIFT .EQ. 0 ) GO TO 120 
C 

ISHHT = HAST 

IFREQ = ISHIFT + NSHIFT * IDP 
LFREQ = IFREQ + NSHIFT * IDP 
KSHIFT = LFREQ + NSHIFT * IDP 
HAST = KSHIFT + NSHIFT 
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c 


IF (ILAST.EQ.2*(ILAST/2) ) ILAST = ILAST + 1 
120 CONTINUE 


. , . ******************** 
CORE ALLOCATION FOR ADDED STIFFNESS, DAMPING AND MASS *** 

********************* 


IF ( NSPRI .EQ. 0 ) GO TO 132 
C 

ISPRI = ILAST 

KSPRI = ISPRI + NSPRI * IDP 
ILAST = KSPRI + NSPRI * 2 
C 

IF (HAST. EQ.2*(ILAST/2)) ILAST = ILAST + 1 
132 CONTINUE 

IF ( NDASH .EQ. 0 ) GO TO 134 
IDASH = ILAST 

KDASH = IDASH + NDASH * IDP 

ILAST = KDASH + NDASH * 2 

C 

IF (ILAST. EQ.2*(ILAST/2)) ILAST = ILAST + 1 
134 CONTINUE 

IF ( NMASS .EQ. 0 ) GO TO 136 
C 

IMASS = ILAST 

KMASS = IMASS + NMASS * IDP 

ILAST = KMASS + NMASS * 2 

C 


IF (ILAST. EQ.2*(ILAST/2)) ILAST = ILAST + 1 


136 CONTINUE 
C 
C 

^ ***. G0RE ALLXXIATIGN FOR PULSE LOAD DEFINITION 
C 

IF( NPULSE .EQ. 0 ) GO TO 138 


t********** 
*** 
lr****** 


IPDTIM = ILAST 

IPDFOR = IPDTIM + NPDPTS * IDP 
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I PULSE = IPDPOR + NPDPTS * IDP 
KPULSE = I PULSE + NPULSE * 2 * IDP 
ILAST = KPULSE + NPULSE * 2 
C 

IF (ILAST.EQ.2*(ILAST/2) ) ILAST = ILAST + 1 
C 

138 CONTINUE 
C 

C ********************************************************************** 
C CORE ALLOCATION FOR FLAGS AND COUNTERS ASSOCIATED WITH EACH GLOBAL 

C ELEMENT FOR THE TREATMENT OF EMBEDDED SINGULARITIES BY MEANS OF 

C SUBELEMENT MESH REPRESENTATIONS 

C ********************************************************************** 

c 


IF( JEMBED .GT. 0 ) 

IF( JEMBED .GT. 0 ) 

IF( JEMBED .GT. 0 ) 

IF( JEMBED .GT. 0 ) 

IF( JEMBED .GT. 0 ) 


TRMRFD = ILAST 
IEMBED = ILAST + NELEM 
ISUBEL = IEMBED 
ISUBEL = IEMBED + NELEM 
ISUBNP = ISUBEL 
ISUBNP = ISUBEL + NELEM 
ISUBPT = ISUBNP 
ISUBPT = ISUBNP + NELEM 
ISUBTY = ISUBPT 

NSDATA = 34 

ISUBTY = ISUBPT + NELEM * NSDATA 


********************************************************************** 

*** CORE ALLOCATION FOR ELEM ENT INTEGRATION POINT WORKING ARRAYS **** 
********************************************************************** 


ICHAR = ISUBTY + MAXEIM 
IF (ICHAR.EQ.2*(ICHAR/2) ) ICHAR = ICHAR + 1 

IPRES = ICHAR + MAXCHR * NNODE * IDP 

ISIG = IPRES + 2 * MAXPRS * NNODE * IDP 


IEPS 

= 

ISIG 

+ MAXLWK 

★ 

IDP 

KPSTRN 

= 

IEPS 

+ MAXLWK 

* 

IDP 

KCSTRN 

= 

KPSTRN 

+ MAXLWK 

★ 

IDP 

KTSTRN 

= 

KCSTRN 

+ MAXLWK 

★ 

IDP 

KEMAT 

= 

KTSTRN 

+ MAXLWK 

* 

IDP 

KGEPS 

= 

KEMAT 

+ MAXDMT 

* 

IDP 

KHEPS 

= 

KGEPS 

+ MAXWRK 

★ 

IDP 

KGSIG 

3= 

KIGEPS 

+ MAXWRK 

★ 

IDP 

KIGSIG 

= 

KGSIG 

+ MAXWRK 

* 

IDP 

KGTDST 

= 

KIGSIG 

+ MAXWRK 

* 

IDP 

KISTRS 

= 

KGTDST 

+ MAXWRK 

★ 

IDP 
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HAST - KISTRS + MAXCHR * IDP * MAXNOD 

IPRINT = ILAST 
IM3NIT = IPRINT + 12 * NPRINT 
IPOST = HONIT + 4 * NMDNIT 

ILAST = IPOST 

IF (ILAST.EQ.2*(ILAST/2) ) ILAST = ILAST + 1 


*** CORE ALLOCATION FOR NODAL QUANTITIES 


***************** 
**★ 

*********** 


INOD 

iwnoD 

IBPRES 

IBNORM 

ISIGW 

IEPSNO 

IPSTNO 

ICSTNO 

ITSTNO 

IISTNO 

IISNNO 

IIPSNO 

IICSNO 

IITSNO 

ITDSNO 

ICMENO 

IICMNO 

IGEPNO 

IIGENO 

IGSINO 

IIGSNO 

IGTDNO 

IDMTNO 

IPREF 

IYIELD 

IMASNO 

C *** 

IEQPSI 
IEQPST 
IEQCST 
IEQCSI 
IV5WT0 
I SWELL 


= ILAST 

= INOD + MAXCRD * NNCDE * IDP 

= IWINOD + NNODE * IDP 

= IBPRES + JPRES * NNCDE * IDP 

= IBNORM + JPRES * NNCDE * IDP * 3 
= ISIGNO + MAXCMP * NNCDE * IDP * MAXLAY 
= IEPSNO + MAXCMP * NNODE * IDP * MAXLAY 
= IPSTNO + MAXCMP * NNCDE * IDP * MAXLAY 
= ICSTNO + MAXCMP * NNCDE * IDP * MAXLAY 
= ITSTNO + MAXCMP * NNCDE * IDP * MAXLAY 
= IISTNO + MAXCMP * NNODE * IDP * MAXLAY 
= IISNNO + MAXCMP * NNODE * IDP * MAXLAY 
= IIPSNO + MAXCMP * NNODE * IDP * MAXLAY 
= IICSNO + MAXCMP * NNCDE * IDP * MAXLAY 
= IITSNO + MAXCMP * NNCDE * IDP * MAXLAY 
= ITDSNO + MAXCMP * NNCDE * IDP * MAXLAY 
= ICMENO + MAXCMP * NNCDE * IDP * MAXLAY 
= IIQMNO + MAXCMP * NNODE * IDP * MAXLAY 
= IGEPNO + MAXSTR * NNCDE * IDP 
= IIGENO + MAXSTR * NNODE * IDP 
= IGSINO + MAXSTR * NNODE * IDP 
= IIGSNO + MAXSTR * NNCDE * IDP 
= IGTDNO + MAXSTR * NNODE * IDP 
= IDMTNO + MAXSTR * MAXSTR * NNCDE * IDP 
= IPREF + NNODE * 3 * NONISO * IDP 

~ IYIELD + NNODE * 3 * NHARD * IDP 


= IMASNO + 
= IEQPSI + 
= IEQPST + 
= IEQCST + 
= IEQCSI + 
= IVSWIO + 


NNCDE * IDP 

NNCDE * IDP * MAXLAY 

NNODE * IDP * MAXLAY 

NNCDE * IDP * MAXLAY 

NNCDE * IDP * MAXLAY 

NNCDE * IDP * MAXLAY 
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c 


ITEM = ISWELL + 
ITEMDF = ITEM + 
INLV = ITEMDF + 


NNODE * IDP * MAXLAY 
NNODE * IDP * MAXLAY 
NNODE * IDP * MAXLAY 


IF( JLARC$.NE. 999999 ) THEN 


LARGE DEFORMATION ANALYSIS 


IDFTOT = INLV + NNODE *MAXNFR 

IDFINC = IDFTOT + NNODE*NDIMEN*NDIMEN* IDP 

HAST = IDFINC + NNODE*NDIMEN*NDIMEN*IDP 


SMALL DEFORMATION ANALYSIS 


HAST = INLV + NNODE *MAXNFR 
E N D I F 

********************************************************************** 

*** ALLOCATE STORAffi FOR BOUNDARY CONDITIONS *** 

********************************************************************** 


IKBC = HAST 
IKBCR = IKBC + 3 * NBC 
IF (LKBCR.EQ.2*(IKBCR/2) ) IKBCR= IKBCR+1 
C 

IEXT = IKBCR + NBC * IDP 

ITI = IEXT +3 * NEXT 

ITR = ITI +3 * NTIE * (NMAX+1) 

IF (ITR.EQ.2*(ITR/2) ) ITR = ITR + 1 
C 

ITRAN = ITR + NTIE * NMAX * IDP 
ITRANR = ITRAN + 3 * NTRAN 

IF ( ITRANR. EQ. 2* ( ITRANR/2 ) ) ITRANR= ITRANR+1 
C 

ITRAC = ITRANR + NTRAN * IDP 

ITRACR = ITRAC +4 * NTRAC 

IF ( ITRACR. EQ. 2* ( ITRACR/2 ) ) ITRACR= ITRACR+1 
C 

ISBC = ITRACR + 2 * NTRAC * IDP 

ISBCR = ISBC + 2 * NSBC 
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IF(ISBCR.EQ.2*(ISBCR/2) ) ISBCR= ISBCR+1 
HAST = ISBCR + NSBC * IDP 

IDUP = ILAST 

HAST = IDUP + 2 * NDUP 

IF (ILAST.EQ.2*(ILAST/2) ) HAST = HAST + 1 

*** IF HARMONIC (COMPLEX) NODAL LOADS ARE SPECIFIED, ADD. . . ********** 

IHARM = ILAST 

KHARM = IHARM + 2 * NHARM * IDP 

HAST = KHARM + 2 * NHARM 

IF (UAST.EQ.2*(ILAST/2) ) ILAST = ILAST + 1 

*** IF HARMONIC (COMPLEX) BASE EXCITATIONS ARE SPECIFIED, ADD. . . ***** 
IBASE = ILAST 

KBASE = IBASE + 2 * NBASE * IDP 

ILAST = KBASE + 2 * NBASE 

IF (HAST.EQ.2*(HAST/2) ) HAST = ILAST + 1 

IGNMS = HAST 

IOMEG = IGNMS + 2 * NSENC * IDP 

HAST = IOMEG + 2 * NSENC * IDP 



IF ( H>YN .NE. 2 .AND. NPSETS .EQ. 0 ) GO TO 180 
IMDAM = HAST 

ICMEGD = IMDAM + NDYNMD * IDP 

IMPORO = ICMEGD + NDYNMD * IDP 

IMDISO = IMPORO + NDYNMD * TOP 

IMVELO = IMDISO + NDYNMD * IDP 

IMPOR1 = IMVELO + NDYNMD * IDP 

IMDIS1 = IMPOR1 + NDYNMD * IDP 

IMVEL1 = IMDIS1 + NDYNMD * IDP 

HAST = IMVEL1 + NDYNMD * IDP 

C 

IF ( NHARM .EQ. 0 .AND. NBASE .EQ. 0 ) GO TO 180 
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ICMFOR = 
ICMRES = 
ICHHFN = 
ICBHFN = 
ICCMAT = 
ICBEXC = 
HAST = 
C 

J.80 CONTINUE 


HAST 
ICMFOR + 2 
ICMRES + 2 
ICHHFN + 2 
ICBHFN + 2 
ICCMAT + 2 
ICBEXC + 2 


* NSUPER * 

* NSUPER * 

* NSUPER * 

* NSUPER * 

* NBASE * 

* NBASE * 


IDP 

IDP 

IDP 

IDP 

IDP * 2 * NBASE * IDP 
IDP 


********************************************************************** 


*** CORE ALLOCATION FOR FREQUENCY DOMAIN ANALYSIS *** 

********************************************************************** 


IF ( LDYN .NE. 4 ) GO TO 280 


IMDAM = HAST 


IHFN 

= 

IMDAM 

+ NSUPER 



★ 

IDP 




IHPC 

= 

IHFN 

+ NSUPER 

* 

2 

* 

IDP 




IPSF 

= 

IHFC 

+ NSUPER 

★ 

2 

★ 

IDP 




IPSD 


IPSF 

+ NPSPTS 



* 

IDP 




IFBP 

= 

IPSD 

+ NPSPTS 



★ 

IDP 




ISPP 

= 

IFBP 

+ NFDPTS 



★ 

IDP 




ISFF 

= 

ISPP 

+ NSUPER 

* 

NSUPER 

★ 

IDP 




ISQQ 

= 

ISFF 

+ NSUPER 

★ 

NSUPER 

★ 

IDP 




ICQQ 

= 

ISQQ 

+ NSUPER 

★ 

NSUPER 

* 

IDP 

* 

2 


ISIGMO 


ICQQ 

+ NSUPER 

★ 

NSUPER 

★ 

IDP 

★ 

2 


IEPSMO 

= 

ISIGMO 

+ NSUPER 

* 

NNODE 

★ 

IDP 

* 

MAXCMP * 

MAXLAY 

IELPHI 

= 

IEPSMO 

+ NSUPER 

* 

NNODE 

* 

IDP 

* 

MAXCMP * 

MAXLAY 

IELTNM 

= 

IELPHI 

+ 


MAXNOD 

* 

IDP 

* 

MAXNFR 


HUM 

= 

IELTNM 

+ 


MAXNOD 

* 

IDP 




HAST 

= 

ITNM 

+ NSUPER 

* 

NNODE 

* 

IDP 





280 CONTINUE 


********************************************************************** 


*** CORE ALLOCATION FOR ELEMENT NODE WORKING STORAGE *** 

********************************************************************** 


ICQLPT = HAST 

IELV = ICQLPT + MAXNFR*NNODE 

ICOR = IELV + MAXNLV 

IF (ICOR.EQ.2*(ICOR/2) ) ICOR= ICOR+1 
C 

IETM = ICOR + MAXNOD * MAXCRD * IDP 
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ICH 
IPP 

IWINOD 
ISNOD 
IF (ISNOD 
IENOD 
KPSTNO 
KCSTNO 
KTSTNO 
KISTNO 
KISNNO 
KIPSNO 
KICSNO 
KITSNO 
KTOSNO 
KEQPST 
KEQPSI 
KEQCSI 
KIQMNO 
KSWLNO 
KTMPNO 
KTOFNO 
KDMTNO 
KQEPNO 
KIGENO 
KGS HO 
KIGSNO 
KGTONO 
KYIELD 
IXRL 
IXIRL 
IVELM 
IAEEM 
IXP 
IXK 
IDET 
IXM 
IXC 
IBETA 
IDTOT 
IDYNA 
IDYNV 
IRL 
ILAST 


IDP 


= IETM 
= ICH 
= IPP 
= IWINOD 

EQ^ISNOD/2)) ISNOD= ISNOD + 1 

. - -■ - * 


+ MAXLAY * MAXNOD * 
+ MAXCHR * IDP 
+ MAXPRS * IDP 
+ MAXNFR * NNODE 


= ISNOD 
= IENOD 
= KPSTNO 
= KCSTNO 
= KTSTNO 
= KISTNO 
= KISNNO 
= KIPSNO 
= KICSNO 
= KITSNO 


MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 

MAXCMP 


MAXSTR * 


= KTOSNO + MAXCMP 
= KEQPST 
= KEQPSI 
= KEQCSI 
= KIQMNO 
= KSWLNO 
= KTMPNO 
= KTOFNO 
= KDMINO 
= KffiPNO 
= KIGENO 
= KGSINO 
= KIGSNO 
= KGTONO 
= KYIELD 
= IXRL 
* IXIRL 
- IVELM 
IAELM 
IXP 
IXK 
IDET 
IXM 
IXC 
IBETA 
IDTOT 
IDYNA 
IDYNV 
IRL 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


MAXSTR 
MAXSTR 
MAXSTR 
MAXSTR 
MAXSTR 
MAXSTR 
NHARD 
MAXNLV 
MAXNLV 
MAXNLV 
MAXNLV 
MAXNLV 
MAXNLV 
MAXINT 
MAXNLV 
+ MAXNLV 
+ MAXBET 
+ NNODE 
+ NNODE 
+ NNODE 


MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNCD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNCD 
MAXSTR 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNOD 
MAXNCD ■ 

IDP 

IDP 

IDP * IDYNM 
IDP * IDYNM 
IDP 

MAXNLV * 

IDP 

MAXNLV * 
MAXNLV * 

IDP 

MAXNFR * 
MAXNFR * 
MAXNFR * 


■ IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 
IDP 

MAXNCD * 

IDP 

IDP 

IDP 

IDP 

IDP 

IDP * 3 


MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 

MAXLAY 


IDP 


IDP 

IDP 

IDP 


IDP 
IDP * 
IDP * 


IDYNM 

IDYNM 


IDYNM 

IDYNM 
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c 

NPDISP = JPERQD( 1 ) 

NPFORC = JPEROD( 2 ) 

C 

IPDISP - ILAST 

IPFORC = IPDISP + NPDISP* IDP *IDYNM 
INDISP = IPFORC + NPFORC* IDP *IDYNM 
INPORC = INDISP + NPDISP *IDYNM 

ILAST = INPORC + NPFORC *IDYNM 

C 

IF ( HAST. EQ. 2* (ILAST/ 2) ) ILAST = ILAST + 1 
C 

IF ( NHARM .EQ. 0 .AND. NBASE .EQ. 0 ) GO TO 320 
ICNFOR = ILAST 

ILAST = ICNFOR + NNODE * MAXNFR * IDP * 2 
320 CONTINUE 
C 

IRL = ILAST 

I FORCE = IRL + NNCOE * MAXNFR * IDP * 2 

IF( IFSCNT .NE. 0 ) IPORCE = IFORCE + NNCDE * MAXNFR * IDP 

IDINC = IFORCE + NNODE * MAXNFR * IDP 

IRESID = IDINC + NNODE * MAXNFR * IDP * 2 

IREAC = IRESID + NNCDE * MAXNFR * IDP * 2 

IF( IPCCNJ .NE. 0 ) IREAC = IREAC + NNCDE * MAXNFR * IDP 

IF( IFSCNT .NE. 0 ) IREAC = IREAC + NNCDE * MAXNFR * IDP 

IRLB = IREAC + NNCDE * MAXNFR * IDP 

IDINCP = IRLB + NNCDE * MAXNFR * IDP 

IPORIN = IDINCP + NNCDE * MAXNFR * IDP 

IBTLC = IFORIN + NNCDE * MAXNFR * IDP 

IEGNVC = IBTLC 

IBTLC = IEGNVC + NSBNC * NNCDE * MAXNFR * IDP *2 
IDSITR = IBTLC + NNODE * MAXNFR * IDP *IDYNM 
IDSX1 = IDSITR + NNCDE * MAXNFR * IDP *IDYNM 

IDSX2 = IDSX1 + NNCDE * MAXNFR * IDP 

IDSX3 - IDSX2 + NNCDE * MAXNFR * IDP *IDYNM 

ILAST = IDSX3 + NNCDE * MAXNFR * IDP *IDYNM 

C 

q ********************************************************************** 
C *** CORE ALLOCATION FOR PERTURBATION DATA SETS *** 

0 ********************************************************************** 
C 

ISKIP = HAST 

IREDEF = ISKIP + NPSETS + 1 

HAST = IREDEF + NPVARS * IDP 


SYSTEMS' MANUAL 


I 


Page : 72 


MHOST Version 4.2 




c 


IF ( ILAST . EQ. 2* ( ILAST /2 ) ) ILAST = HAST + 1 
IF ( NPSETS .EQ. 0 ) GO TO 680 

C *** ARRAYS NEEDED IN ANY TYPE OF PERTURBATION ANALYSIS *************** 

IMEANS = ILAST 
ISTOEV = IMEANS + NPVARS*IDP 
IPDATA = ISTOEV + NPVARS*IDP 
IVTYPE = IPDATA + NPVARS*NPSETS*IDP 
ILAST = IVTYPE + NPVARS 

IF ( HAST .EQ. 2* (HAST /2)) HAST = HAST + 1 
C *** ARRAYS USED FOR THE PERTURBED STATIC PROBLEM ********************* 
IDINCO = HAST 

IREACO = IDINCO + NNODE *MAXNFR* IDP 
IRESDO = IREACO + NNODE*MAXNFR*IDP 
HAST = IRESDO + NNODE *MAXNFR* IDP 

C *** ARRAYS USED FOR THE PERTURBED EIGENVALUE PROBLEM ***************** 

IDGRP = HAST 

ILAST = IDGRP + 2*NSENC 
C 

c *** PERTURBATION WORKSPACE USED FOR VARIABLE MANIPULATIONS *********** 


IPWBEG = HAST 
IXCOOR = IPWBEG 
IXCHAR = IXCOOR 
IXPORC = IXCHAR 
KXFORC = IXPORC 
IXDIST = KXFORC 
IF (IXDIST .EQ. 
KXDIST = IXDIST 
IXTEMP = KXDIST 
IF (IXTEMP .EQ. 
JXTEMP = IXTEMP 
IXBEAM = JXTEMP 
IXSPRI = IXBEAM 
KXSPRI = IXSPRI 
IXFVEC = KXSPRI 
IF (IXFVEC .EQ. 
IXPRES = IXFVEC 
IXPREF = IXPRES 


+ IPTYPE( 1 ) *NNODE*MAXCRD*IDP 
+ IPTYPE( 2 ) *NNODE*MAXCHR*IDP 
+ IPTYPE( 3)*NIRAC*2*IDP 
+ IPTYPE( 3 ) *NIRAC*4 
2*(IXDIST/2) ) IXDIST = IXDISTM-1 
+ IPTYPE( 4)*NNODE*2*MAXPRS*IDP 
+ IPTYPE( 4)*NELEM 
2* (IXTEMP/ 2) ) IXTEMP = IXTEMP+1 
+ IPTYPE( 5)*NNODE*MAXLAY*IDP 
+ IPTYPE( 5 ) *NNODE*MAXLAY*IDP 

6 ) *NBSECT*MAXBSP*IDP 

7) *NSPRI*IDP 
7)*NSPRI*3 

2*(IXFVEC/2) ) IXFVEC = IXFVEC+1 
+ IPTYPE( 3 ) *NNQDE*MAXNFR*IDP 
+ IPTYPE( 8)*NNCDE*IDP 


+ IPTYPE( 
+ IPTYPE( 
IPTYPE( 
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IFWEND = IXPREF + IPTYPE( 9) *NN0DE*3*IDP 
HAST = IFWEND 
680 CONTINUE 
C 

IBTLC = HAST 
ISTRT2 = IBTDC 
C 

C *** MESSAGE OUTPUT AND RETURN TO DATA INPUT ROUTINES ***************** 
C 

ILAST1 = HAST + 2 * NNODE + 16 
NPX = UAST1 - ITYP + 1 

NSHQRT = HAST1 - ISIZE 
C 

CALL LINES(4,4) 

WRITE (ILPRNT, 2001) ILAST1 

2001 FORMAT (//,2X, 4 7HNUMBER OF WORDS NEEDED IN BLANK COMMON FOR DATA, 
*6H INPUT, 18, /,2X,43H*******************************************, 
*18H******************) 

IF(NSH0RT .GT. 0) GO TO 900 
C 

C ********************************************************************** 
C ** INITIALIZE DATA IN BLANK COMMON AND CONTINUE EXECUTION ** 

C 

CALL NULINT( IWORK(ITYP ) , NPX ) 

C 

C SPECIAL INITIALIZATION FOR YIELD FUNCTION ARRAY 
C 

ISTART = IYIELD 

IEND = IYIELD + NNODE * 3 * NHARD * IDP 

ISTEP = 3 * NHARD * IDP 

C 

DO 800 INDEX = ISTART, IEND, ISTEP 
CALL COPY( YIELDC, RWORK( INDEX) , 3 ) 

800 CONTINUE 
C 

RETURN 

C 

0 ********************************************************************** 
C ** PRINT-OUT THE AMOUNT OF CORE REQUIRED AND TERMINATE EXECUTION ** 

C 

900 CONTINUE 

IERR = IERR + 1 

CALL LINES ( 3,3) 
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c 

c 

c 


WRITE (ILPRNT, 2005) NSHORT 

^2005 FORMAT (//,2X, 'INCREASE BLANK COMMON AND ISIZE WITH' ,18,' WORDS') 
CALL QUIT( 'MEMO' , 'RY A' , 'ILOC' , 'ATIO' , 'N ',' ' , IERR) 


t*********** 


RETURN 

END 


The following SUBROUTINE INIT2 calculates pointers for the alobal 
arrays; 


C-SUEROUTINE=INITI2 CALLED BY SUBROUTINE 'STRUCT' 
SUBROUTINE INITI2 ( RWORK, IWORK, ISIZE) 



C 


C 


IMPLICIT REAL*8 (A-H,0-Z) 
REAL*4 RWORK 


C 

C 

C 


DIMENSION RWORK ( ISIZE ) ,IWORK( ISIZE) 


******** 


COMMON / AU2M / ICREAD, LLPRNT, JLPROT, IOCNSL, IPOSTF, ISCRAF, 

1 IPIOTB, IRSTRT, JCREAD, IPVARS, IPSETS, IFILEX, 

2 PI ,LINE ,LINE2 

COMMON / CONIRO / JEND , JITER ,JTEMP ,JPRINT,JP ,JSUB , 

\ JINC , JREST , JSAVE , JREDIM, JAUIO ,JPOST , 

2 JBACK , JOPTIM, JCREEP, JDIST ,JCONST,JDYN , 

3 NCNISO, IIHERM, ITRIG , IDYNM , JREPOT, JTANGE, 

4 OTIHERM, JFORCE, JUIEMP, JUOOEF, JDISTS, JUHOQK, 

5 JDERIV, JUBOUN, IDSTOP, D7TSTR, JPLAST, JBAND , 

6 JFRCNT , JDEPOR, JEMBED, ITEST ,JDISP , IFBFGS, 

1 IFSCNT, IFLINE, IFPRNT, ICQMPS,IPCQNJ, JEIGEN, 

8 IFBODY , IFQRAV , IFCEWT, JDAMP ,LDYN ,ISTAT , 

9 JFDSXX , JISTIF , JCENIM, JFINIT, JLARCS: , JFCLOW, 

+ JWKSLP,JPRES , JCDUM2, JCDUM3 

OCMMON / PERPAR / IPTYPE( 32) ,NPTYPE,NPVARS,NPSETS, JPERT , 
1 NPVCQN,NPP008,NPP009,NPP010,NPP011,NPP012 


NESSUS 

NESSUS 
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c 

c 

c 


COMMON / PERPTR 

1 

2 

COMMON / PERIOD 
COMMON / EIGEN 

1 

OCWCW / ERRORS 
COMMON / MAXIMA 

1 

2 

3 

4 

COMMON / PARAM 

1 

2 

3 

4 

5 

6 
7 

COMMON / START1 

1 

2 

COMMON / STAPT3 

1 

COMMON / START5 

1 

2 

3 

COMMON / START4 

1 

2 

3 

4 

5 

6 
7 

COMMON / MACHIN 


/ IMEANS , ISTDEV, IPDATA, IVTYPE , ISKIP ,IREDEF, 
IDINCO , IREACO , IRESDO , IDGRP , ISTIFO , IMASSO , 
IPPO 1 3 , IQMEGO , IQMEGP , IOMEGA , IETAK ,IZETAK 
/ JPEROD( 2 ) , IPDISP, IPPORC, INDISP, INFORC 
/ IEGNVC,IGNMS ,ICMEG , IMOENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED,IMDAM ,ICMEGD 
/ IERR 

/ MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS, 
MAXIAY , MAX INT , MAXWRK , MAXNLV , NSUMAX , MAXCMP , 
MAXBSP,MAXGMR,MAXTEM,MAXELM,MAXLWK,MAXDMT, 
MAXFRN,MAXBET,MAXVAR,MAXSET,MAXEAN,MAXORD, 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
/ NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX , 

NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRINT,NPOST ,NSBC ,MXJP ,NSIZE ,NBSECT, 

NSHIFT , NSBFGS , N31RS ,NSPRI ,NMASS ,NDASH , 
NDYNMD,NSBNC , NSUPER, NHARM ,NBASE ,NINC , 
NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUM0H,NDIMEN,NM0NIT,NPAR4O,NPAR41,NPAR42, 
NPAR43, NPAR4 4 , NPAR45 , NPAR46 ,NPAR47 ,NPAR48 
/ IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 

ISTRN ,ICOP , IPRINT , IPOST ,IDIST , ILEAN , 

IBPRES , IBNORM, IMONIT, IST116 , IST117 , IST118 
/ IKBC , ITI , ITR , ITRAN ,ITRAC ,IEXT , 
ISBC , ISBCR 

/ IRL , IREAC , IES ,IAB ,IBQM ,ISRL , 

IBTLC , ISKM , HAST , IRLB ,IDINCP, IPORIN, 
IOP , IDAMMT, IMASMT, IDIAG , IUPTRI, ICOLPT, 
IMASDI , IMASUP , IST52 1 , IST522 , IST523 , IST524 
/ IDINC , IDIOT , IPORCE , IRESID, IWINOD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS , I ISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTNO, ICSTNO, ITSTNO, 
IISTNO, IISNNO, IIPSNO, IICSNO, IITSNO, IEMAT , 
IDMINO, IEQCST, IOMENO, IIQMNO, ITDSNO, IVSWIO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 , IDSITR, ISWELL, 
IEQCSI , IPREF ,IDSX3 , IYTETT), IDFINC, IDFIQT, 
IST443, IST444 , IST445, IST446 , IST447 , IST448 
/ IDP 


NESSUS 

NESSUS 

NESSUS 


*** CONSTRUCT THE REVERSE CONNECTIVITY T ABU! ************************* 


IBEG = INEL 

IEND = IBEG + NELEM*MAXNOD 

C 

C . . . FIND THE MAXIMUM NUMBER OF ELEMENTS AT A NODE 
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MAXEAN = 0 
DO 130 NN = 1, NNODE 
NF = 0 

DO 120 IN = IBEG, IEND 

IF ( IWDRK(IN) .EQ. NN ) NF = NF+1 
120 CONTINUE 

IF ( MAXEAN .LT. NF ) MAXEAN = NF 
130 CONTINUE 

. . . ALLOCATE SPACE FOR THE REVERSE CONNECTIVITY TABLE 
ILEAN = ILAST 

ILAST = ILEAN + NNODE*MAXEAN 

CALL NULINT( IWDRK( ILEAN) , MAXEAN*NNODE ) 

. . . CONSTRUCT THE REVERSE CONNECTIVITY T ABLE 

DO 160 NN = 1, NNODE 
NF = 0 
IN = INEL-1 
DO 150 IE = 1, NELEM 
DO 140 IJ = 1, MAXNOD 
IN = IN+1 

IF ( IWDRK(IN) .EQ. NN ) THEN 
NF = NF+1 

IM = IL E AN+ ( NN- 1 ) *MAXEAN+NF- 1 
IWDRK(IM) = IE 
ENDIF 

140 CONTINUE 
150 CONTINUE 
160 CONTINUE 


IADRES 

= ILAST 


IBTLC 

= ILAST 


ISKM 

= IBTLC 

+ NEXT*NFD* IDP 

IBQM 

= ISKM 

+ NEXT*NEXT* IDP 

ISRL 

= IBQM 

+ NEXT* IDP 

LAB 

= ISRL 

+ NEXT* IDP 

ILAST 

= LAB 

+ (4*NBAND + 2 ) *IDP 
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IF( MDD( HAST , 2 ) .EQ. 0 ) HAST = HAST + 1 


*********************************************** *********************** 

IDIAG = HAST 

IF ( IDIAG.EQ.2*(IDIAG/2) ) IDIAG = IDIAG + 1 

IUPTRI = IDIAG + NFD* IDP 

IH = ( NFD + NSUMCH ) * IDP 

NSIZE = NFD + NSUMCH 

HAST = HAST + IH 

IOP = ILAST 

IF(M3D(IOP,2) .EQ. 0) IOP = IOP + 1 

IF( JDYN .EQ. 1 ) THEN 

IESIZE = ( MAXNFR * MAXNOD )**2 * IDP 
IDAMMT = IOP 

IMASMT = IDAMMT + IESIZE 
HAST = IMASMT + IESIZE 

E N D I F 

IF( JEIGEN .EQ. 1 ) THEN 

IMASDI = IOP 

IMASUP = IMASDI + NFD * IDP 

IPTAR = IMASDI + IH 

IPTBR = IPTAR + NSBNC * NFD * IDP 

IPTVED = IPTBR + NSBNC * NFD * IDP 

ILAST = IPTVED + NSBNC * NFD * IDP 

E N D I F 

IF( IFBFGS .EQ. 1 ) THEN 

IPTAR = IOP 

IPTBR = IPTAR + NFD * NSBFGS * IDP 

HAST = IPTBR + NFD * NSBFGS * IDP 

E N D I F 

*** ADDITIONAL ALLO CATION FOR THE EIGENPROELEM PERTURBATION ********** 

IF ( JEIGEN .EQ. 0 .OR. NPSETS .EQ. 0 ) GO TO 300 
C 
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ISTIFO = ILAST 
IMASSO = ISTIFO + IH 
ICMEGO = IMASSO + IH 
IQMEGP = IQMEGO + NDYNMD * IDP 
ILAST = IQMEGP + NDYNMD * IDP 
C 

C . . . CHECK HOW MANY PERTURBATION TERMS THERE IS ROOM IN CORE FOR 
C 

ITERM = ( 1+2*NFD) *NDYNMD*IDP 
ILEFT = ISIZE-ILAST 
IF ( ILEFT .LE. 0 ) ILEFT = 0 
MAXORD = ILEFT/ ITERM 

IF ( MAXORD .GT. (NITER+2) ) MAXORD = NITER+2 
IF ( MAXORD .LE. 2 ) MAXORD = 3 

C 

C ... IN EITHER CASE GO ON AND ESTIMATE THE MINIMAL REQUIREMENTS 
IQMEGK = ILAST 

IETAK = IQMEGK + NDYNMD*MAXORD* IDP 

IZETAK = IETAK + NFD*NDYNMD*MAXORD*IDP 
ILAST = IZETAK + NFD*NDYNMD*MAXORD*IDP 
C 

300 CONTINUE 
C 

C *** CHECK AGAINST THE SIZE OF BLANK COMMON AVAILABLE ***************** 
C 

CALL LINES (7,7) 

WRITE (TLPRNT, 2000) NFD , NBAND 

2000 FORMAT (//,2X, 2 1HDAIA ON SYSTEM MATRIX,/, 

* 2X,21H********************* // 

* 5X,16HNUMBER OF D.O.F. ,115,/, 

* 5X, 16HHALF-BANDWIDTH ,115) 

CALL LINES (4,4) 

ILAST1 = ILAST + 16 

NPX = ILAST1 - IADRES + 1 

WRITE (LLPRNT, 2001) ILAST1 

2001 FORMAT (/ / ,2X,44HTOIAL NUMBER OF WDRDS NEEDED IN BLANK COMMON 18 / 

*2X,52H****************************************************v ' ' 

NSHORT = ILAST1 - ISIZE 
IF ( NSHORT .LE. 0 ) GO TO 200 
C 

C *** WORKING STORAGE NOT SUFFICIENT ! 

C 

IERR = IERR + 1 
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CALL LINES (3,3) 

WRITE (ILPRNT, 2005) NSHDRT 

2005 FORMAT (//,2X, 3 5HINCREASE BLANK COMMON AND IBLK WITH, 18, 6H WORDS) 

CALL QUIT( 'MEMO' , 'RY A' , 'LLOC' , 'ATIO' , 'N ' ,IERR) 

C 

C *** 

C 

200 CONTINUE 

CALL NULINT ( IWORK(IADRES) , NPX ) 

RETURN 

END 

The following SUBROUTINE INITSE defines the pointers for the subelenent 
data storage: 

C=SUBROUTINE=INITSE CALLED BY SUBROUTINES 'SUBEIN' , 'SUBDIV' 

SUBROUTINE INITSE 

1 (IWORK , RWORK ,ISIZE ,KEMBED,KSUBEL,KSUBNP,KSUBTY,NNODE , 

2 NELEM ,NHARD , IERR , IPOINT , NSDATA, IELEM ,ILAST ,IDP ) 

C 

c 

IMPLICIT REAL* 8 ( A-H , O-Z ) 

REAL*4 RWORK 
C 

c ********************************************************************** 

c 

DIMENSION IWORK ( ISIZE) , RWORK ( ISIZE) 

DIMENSION IPOINT( NSDATA) 

C 

Q ****************** *★**★★*★★★***★*★***********★*+★ ***★**★********★★★★*★ 

c 

COMMON / SUBTYP / NSUCRD,NSUNFR,NSUNOD,NSUSTR,NSUCHR,NSUCMP, 

1 NSUINr,NSULV , NSUIAY, NSUNDI , NSUSHR, NSUIDF 

COMMON / ALGEM / ICREAD, ILPRNT, JLPRNT, IC0NSL, IPOSTF, ISCRAF, 

1 IPLOTB , IRSTRT , JCREAD, IPVARS , IPSETS , IFILEX , 

2 PI ,LINE ,LINE2 
C 

C 

C FUNCTION 

C ALLOCATES CORE STORAffi FOR THE SUBELEMENT MESH ASSOCIATED 
C WITH THE IELM-TH MASTER ELEMENT 

C 
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ARGUMENTS 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IWORK 

RWORK 

ISIZE 

KEMBED 


KSUBEL 

KSUBNP 

KSUBTY 

NNODE 

NELEM 

IERR 

IPOINT 

NSDATA 

T FT .EM 
HAST 

IDP 


INTEGER WORKING SPACE 
SINGLE PRECISION REAL WORK SPACE 
TOTAL SIZE OF THE WORKING ARRAY 
THE FLAGS INDICATING THE PRESENCE OF SUB- 
ELEMENT DIVISION 

= 1 FOR UNIFORM 2X2 SUBELEMENT GRID 
= 10 FOR USER DEFINED SUBELEMENT GRID 
< 0 S UBELEM ENT MESH DEFINED BUT THE CORE IS NOT 
ALLOCATED 

NUMBER OF SUBELEMENTS 

NUMBER OF NODES IN THE SUBELEMENT NODES 

SUBELEMENT TYPE 

NUMBER OF NODES IN THE GLOBAL MESH 

number of elements in the global mesh 

ERROR COUNTER ( IF IERR .CT. 0 ) EVENTUALL THE JOB 
SHOULD QUIT 

ARRAY FOR SUBELEMENT ARRAY POINTERS 

NUMER OF ENTRIES PER ELEMENT FOR THE SUBELEMENT 

POINTER ARRAY 

COUNTER FOR THE CURRENT ELEMENT 

LAST ADDRESS OF THE WORKING STORAGE ( UPDATED IN 
THIS ROUTINE ) 

RATIO OF THE REAL / INTEGER WORD LENGTH 


*********** 


POINTERS 


IPOINT ( - , IELEM) I ARRAY 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


I ELEMENT CONNECTIVITY 
I PHYSICAL COORDINATES 
I ELEMENT COORDINATES 
I TOTAL NODAL DISPLACEMENT 
I INCREMENETAL NODAL DISPLACEMENT 

I CORRECTIONAL NODAL DISPLACEMENT 

I TOTAL NODAL STRAIN 

I TOTAL NODAL STRESS 

I TOTAL NODAL PLASTIC STRAIN 

I TOTAL NODAL CREEP STRAIN 

I TOTAL NODAL THERMAL STRAIN 

I GENERALIZED NODAL STRESS (TOTAL) 
I GENERALIZED NODAL STRAIN (TOTAL) 
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c 

14 

I 

INCREMENTAL NODAL STRAIN 

c 

15 

I 

INCREMENTAL NODAL STRESS 

c 

16 

I 

INCREMENTAL NODAL PLASTIC STRAIN 

c 

17 

I 

INCREMENTAL NODAL CREEP STRAIN 

c 

18 

I 

INCREMENTAL NODAL THERMAL STRAIN 

c 

19 

I 

GENERALIZED NODAL STRESS (INCREMENTAL) 

c 

20 

I 

GENERALIZED NODAL STRAIN (INCREMENTAL) 

c 

21 

I 

LUMPED MASS COEFFICIENT FOR SMOOTHING 

c 

22 

I 

NODAL MATERIAL TANGENT 

c 

23 

I 

NODAL TEMPERATURE 

c 

24 

I 

TEMPERATURE DIFFERENCE 

c 

25 

I 

EQUIVALENT PLASTIC STRAIN (TOTAL) 

c 

26 

I 

EQUIVALENT PLASTIC STRAIN (INCREMENT) 

c 

27 

I 

EQUIVALENT CREEP STRAIN (TOTAL) 

c 

28 

I 

EQUIVALENT CREEP STRAIN (INCREMENT) 

c 

29 

I 

TOTAL SHIFT TENSOR 

c 

30 

I 

INCREMENTAL SHIFT TENSOR 

c 

31 

I 

TVSEWL 

c 

32 

I 

SWELL 

c 

33 

I 

GENRALIZED INITIAL STRESS 

c 

34 

I 

YIELD FUNCTION DEFINED AT NODES 


C I 

0 ********************************************************************** 

c 

IF( KEMBED .EQ. 0 ) RETURN 
C 

WRITE (ICONSL, 2000) IELEM 

2000 FORMAT ( ' SUBELEMENT CORE ALLOCATION FOR ELEMENT NO. ' ,15) 

C 

CALL SUBELV 

1 (IWORK ,KSUBTY, IERR ) 

C 


IPOINr( 

1 

) 

= 

= HAST 









IPOINTj 

2 

) 

= 

IPOINT( 

1 

) 

+ 

NSUNOD 

★ 

KSUBEL 



IPOINT( 

3 

) 

= 

IPOINTj 

2 

) 

+ 

NSUCRD 

★ 

KSUBNP 

★ 

IDP 

iPOiNrj 

4 

) 

= 

IPOINTj 

3 

) 

+ 

NSUCRD 

* 

KSUBNP 

★ 

IDP 

IPOINTj 

5 

) 

= 

IPOINTj 

4 

) 

+ 

NSUNFR 

★ 

KSUBNP 

★ 

IDP 

IPOINT( 

6 

) 

= 

IPOINT( 

5 

) 

+ 

NSUNFR 

* 

KSUBNP 

* 

IDP 

IPOINrj 

7 

) 

= 

IPOINTj 

6 

) 

+ 

NSUNFR 

★ 

KSUBNP 

* 

IDP 

IPOINTj 

8 

) 

= 

IPOINTj 

7 

) 

+ 

NSUCMP 

★ 

KSUBNP 

★ 

IDP 

IPOINTj 

9 

) 

= 

IPOINT( 

8 

) 

+ 

NSUCMP 

★ 

KSUBNP 

★ 

IDP 

IPOiNrj 

10 

) 

= 

IPOINTj 

9 

) 

+ 

NSUCMP 

★ 

KSUBNP 

★ 

IDP 

iPOiNrj 

11 

) 

= 

IPOINTj 

10 

) 

+ 

NSUCMP 

★ 

KSUBNP 

* 

IDP 

IPOINTj 

12 

) 

= 

IPOINTj 

11 

) 

+ 

NSUCMP 

* 

KSUBNP 

it 

IDP 

IPOINTj 

13 

) 

= 

IPOINTj 

12 

) 

+ 

NSUSTR 

* 

KSUBNP 

★ 

IDP 
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IPOINT( 14 ) = IPOINT( 13 ) + 

IPOINT( 15 ) = IPOINT( 14 ) + 

IPOINT( 16 ) = IPOINTj 15 ) + 

IPOINT( 17 ) = IPOINT( 16 ) + 

IPOINT( 18 ) = IPOINT( 17 ) + 

IPOINT( 19 ) = IPOINT( 18 ) + 

IPOINT( 20 ) = IPOINT( 19 ) + 

IPOINr( 21 ) = IPOINT( 20 ) + 

IPOINT( 22 ) = I POINT ( 21 + 

IPOINT( 23 ) = IPOINr( 22 ) + 

IPOINT( 24 ) = IPOINT( 23 ) + 

IPOINr( 25 ) = IPOINTf 24 ) + 

IPOINr( 26 ) = IPOINT( 25 ) + 

IPOINT( 27 ) = IPOINTf 26 ) + 

IPOINT( 28 ) = IPOINT( 27 ) + 

IPOINT( 29 ) = IPOINT( 28 ) + 

IPOINT( 30 ) = IPOINT( 29 ) + 

IPOINT( 31 ) = IPOINT( 30 ) + 

IPOINT( 32 ) = IPOINT( 31 ) + 

IPOINT( 33 ) = I POINT ( 32 ) + 

IPOINr( 34 ) = IPOINT( 33 ) + 

KL&ST = iP0INr( 34 ) + 

CALL NULINT( IWORK( HAST ) 

*** UPDATE THE LAST ADRESS 


HAST 


NSUSTR * KSUBNP * IDP 
NSUCMP * KSUBNP * IDP * NSULAY 
NSUCMP * KSUBNP * IDP * NSULAY 
NSUCMP * KSUBNP * IDP * NSULAY 
NSUCMP * KSUBNP * IDP * NSULAY 
NSUCMP * KSUBNP * IDP * NSULAY 
NSUSTR * KSUBNP * IDP 
NSUSTR * KSUBNP * IDP 
KSUBNP * IDP 

NSUSTR * KSUBNP * IDP * NSUSTR 

KSUBNP * IDP 

KSUBNP * IDP 

KSUBNP * IDP 

KSUBNP * IDP 

KSUBNP * IDP 

KSUBNP * IDP 

NSUCMP * KSUBNP * IDP * NSULAY 

NSUCMP * KSUBNP * IDP * NSULAY 

KSUBNP * IDP 

KSUBNP * IDP 

NSUSTR * KSUBNP * IDP 

NHARD * KSUBNP * IDP * 3 

KLAST - HAST + 1 ) 


KLAST 


*★** **★*★★***★* 


RETURN 

END 


The following SUBROUTINE SUBFEt 
ibelement pointer analysis: 


accesses the arrays defined by the 


: SUBROUITNE=SUEFEM CALLED BY SUBROUTINE 'ASSEM4 ' 

SUBROUTINE SUBFEM 

1 (RWDRK , IWDRK ,ISIZE , IPOH7T, IELEM ,NSUBEL,NSUBNP,NSUBTY, 

2 NSDATA,KEMBED / WORKSP,ISLV ) 




IMPLICIT REAL* 8 ( A-H , O-Z ) 
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REAL* 4 


RWORK 


C 

C 

c 


********************************************************************** 


COMMON / ALGEM 

1 

2 

COMMON / CONTRO 

1 

2 

3 

4 

5 

6 

7 

8 
9 


+ 


COMMON / ELTYP 

1 

COMMON / ELEMEN 
L 

COMMON / SUBTYP 


COMMON 

OMM 


/ TRANSF 
/ LOUBIN 


COMMON / MAXIMA 


1 

2 

3 

4 


COMMON / PARAM 


1 

2 

3 

4 

5 

6 
7 


COMMON / ERRORS 
COMMON / MACHIN 
COMMON / TIME 
COMMON / START1 

1 


/ ICREAD, ILPRNT, JLPRNT, ICONSL, IPOSTF, ISCRAF, 
IPLOTB , IRSTRT , JCREAD , IPVARS , IPSETS , IFILEX , 
PI ,LINE ,LINE2 

/ JEND , JTTER ,JTEMP ,JPRIOT,JP ,JSUB , 

JINC , JREST , JSAVE , JREDIM, JALTTO ,JPOST , 

JBACK , JOPTIM, JCREEP , JDIST ,JCONST,JDYN , 

NCNISO, ITHERM, ITRIG ,IDYNM , JREPOT, JTANGE, 
JIHERM, JFORCE, JUIEMP, JUCX3EF, JDISTS, JUHOQK, 
JDERXV, JUBOUN, IDSTOP, INTSTR, JPLAST, JBAND , 
JFRQNT, JDEFOR, JEMBED, ITEST ,JDISP , IFBFGS, 
IFSCNT, IFLINE, IFPRNT, ICOMPS, IPCCNJ, JEIGEN, 
IFBODY,IFGRAV,IFCENT,JDAMP ,LDYN ,ISTAT , 
JFDSXX , JISTIF , JCENTM, JFINIT, JLARffi , JPOLOW, 
JWKSLP, JPRES , JCDUM2 , JCDUM3 
/ NELCRD,NELNFR,NELtOD,NELSTR,NELCHR,NELPR , 
NELINT,NELLV ,NELLAY,NDI ,NSHEAR,NELCMP 
/ IC ,IEL , IDF , JLAW ,IPA1H ,IASSEM, 
JRDLE , JCART , JEL009, JEL010, JEL011, JEL012 
/ NSIKORD,NSUNFR,NSUNOD,NSUSTR,NSUCHR,NSUCMP / 
NSIHNT,NSULV ,NSULAy,NSUNDI,NSUSHR,NSUIDF 
/ CTRANS( 9),XJACOB( 9) 

/ JLOUB , JINTER, JEXTRA, JWEI®, JSUBRE, JTSTRN, 
JCITER, JHRGLS , JGRAM ,L0UB03 ,100604,100305 
/ MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS, 
MAXLAY,MAXIOT,MAXWRK,MAXNLV / NSUMAX,MAXCMP, 
MAXBSP , MAXQ4R, MAXTEM, MAXEX21, MAXLWK , MAXDMT , 
MAXFRN,MAXBET,MAXVAR,MAXSET,MAXEAN,MAXORD, 
MAX025 , MAX02 6 ,MAX027 ,MAX028 / MAX029 ,MAX030 
/ NTYPE ,NELEM ,NNODE ,NBC ,OTIE ,NMAX , 

NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRIOT,NPOST ,NSBC ,ND(JP ,NSIZE ,NBSECT, 
NSHIFT f NSEFGS,NC2-lRS ,NSPRI ,NMASS ,NDASH , 

NDYNMD,NSBNC ,NSUPER,NHARM ,NBASE , NINC , 

NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUMOH , NDIMEN , NMONIT , NPAR40 , NPAR4 1 , NPAR4 2 , 
NPAR4 3 , NPAR4 4 , NPAR45 , NPAR46 , NPAR47 ,NPAR48 
/ IERR 
/ IDP 

/ TIMINC , TOTINC , RUNTIM 

/ IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 
ISTRN ,ICOP , IPRINT, IPOST ,IDIST , ILEAN , 
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c 

c 

c 


c 

c 

c 

c 

c 


CCMMDN 

CCMMDN 


/ STARK 
/ STARK 


1 

2 

3 

4 

5 

6 
7 

i 

1 

2 

3 

I 

1 

2 

3 

4 

5 

6 

7 

8 


CCMMDN / START4 / 


IBPRES , IBNORM, IMDNIT, IST116 , IST117 , IST118 
/ INCO , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
/ IKBC , ITI , ITR , ITRAN ,ITRAC ,IEXT , 

ISBC , ISBCR 

IDINC , IDTOT , IPORCE, IRESID, IWINQD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS, IISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTNO, ICSTNO, ITSTNO, 
IISTNO, IISNNO, IIPSNO, IICSNO, IITSNO, IDMAT , 
IDMINO, IEQCST, IQMENO, IICMNO, ITDSNO, IVSWIO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 , IDSITR, ISWELL, 
IEQCSI, IPREF , IDSX3 , IYIELD, IDFINC , IDFTOT, 
_ , IS T443 , IST444 , IST445, IST446 , IST447 , IST448 

CCMMDN / START5 / IRL ,IREAC ,IES ,IAB ,IBQM ,ISRL , 

IBTLC: , ISKM , HAST ,IRLB , IDINCP, IFORIN, 

IOP ,10AM , IMASMT, IDIAG , IUPTRI, ICOLPT, 

^ , IMASDI , IMASUP, IST521, IST522 , IST523 , IST524 
COMMDN / START6 / IELV ,ICOR ,ISIG ,IEPS ,IWNOD ,ISNOD , 

IENOD ,IETM , ICH ,IPP ,IXRL ,IXIRL , 

IXP , IXK ,KPSTRN,KCSTRN / KTSTRN,KISTRS, 

KISTRN, KIPSTR, KICSTR, KITSTO, KPSTNO, KCSTNO , 
KTSTNO,KISTNO,KISNNO,KIPSNO,KICSNO / KITSNO, 
IMASNO, IMNOD , IEQPST , IEQPSI , KEQPST , KEQPS I , 
KDMAT ,KDMngO,KTOSNO / KI'IDST,IXM ,IXC , 
IVELM ,IAELM , IMASEL,KYIELD, IST647 , IST648 , 
IST649, IST650, IST651 , IST652 , IST653 , IST654 
/ ICON , IKBCR , ITRACR, ITRANR, IBETA , IDET 
/ KGEPS , KIGEPS , KGSIG ,KIGSIG,KGTDST, 

IGEPNO, IIGENO, IGSINO, IIGSNO, ICTDNO, 
K3T > N0,KIGEN0,KGSIN0,KIGSN0 / KGnDN0 
/ KEQCSI ,KICMNO / KSWLNO / KIMPNO,Rn)FNO / KDUMMY / 
KEQCST,KCMENO,KVSWTO, IST910, IST911 , IST912 
/ RELERR,ABSERR,REACMX,RESIMX,DISERR,DISTOR, 
engtor,engnrm 


CCMMDN 

CCMMDN 


/ STARK 
/ START8 


CCMMDN / STARK 
L 

CCMMDN / TOLER 


DIMENSION RMDRK ( ISIZE) ,IWDRK ( ISIZE) ,ISLV ( 1 ) 
DIMENSION NSUBEL( NELEM) ,NSUENP( NELEM) ,NSUBTY( NELEM) 
DIMENSION WORKSP( ISIZE) ’ 
DIMENSION I POINT ( NSDATA, NELEM) 




*** *********** 


FUNCTION 
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COMPLETE MIXED FINITE ELEMENT SOLUTION FOR TOE SUBELEMENT MESH 
SUBDIVISION. RESULTS ARE FED BACK TO TOE GLOBAL MESH AS A 
MODIFIED RESIDUAL FORCE VECTOR, AND NODAL QUANTITIES ASSOCIATED 
WITH TOE SUBELEMENT GRIDS ARE RESTORED FOR FURTHER DATA 
MANUPULATIONS . 

ARGUMENTS 


RWORK 

IWORK 

ISIZE 

IPOINT 

IELEM 

NSUBEL 

NSUBNP 

NSUBTY 

NSDAIA 

KEMBED 

WORKSP 


SINGLE PRECISON REAL WORKAREA 

INTEGER WORKAREA 

TOTAL SIZE FOR TOE WORKAREA 

POINTER ARRAY FOR TOE SUBELEMENT DATA STORAGE 

INDEX FOOR TOE CURRENT 'MASTER7 ELEMENT 

ARRAY FOR TOE NUMBER OF SUBELEMENT ELEMENTS 

ARRAY FOR TOE NUMBER OF SUBELEMENT NODES 

ARRAY FOR TOE SUBELEMENT ELEMENT TYPES 

NUMBER-OF-ENTRIES/ELEMENT IN IPOINT 

FLAG FOR THE EMBEDDED SU BELEM ENTS 

DUBLE PRECISION REAL WORKSPACE 


POINTERS 


IPOINT ( - , IELEM) I ARRAY 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


I ELEMENT CONNECTIVITY 

I PHYSICAL COORDINATES 

I ELEMENT COORDINATES 

I TOTAL NODAL DISPLACEMENT 

I INCREMENETAL NODAL DISPLACEMENT 

I CORRECTIONAL NODAL DISPLACEMENT 

I TOTAL NODAL STRAIN 

I TOTAL NODAL STRESS 

I TOTAL NODAL PLASTIC STRAIN 

I TOTAL NODAL CREEP STRAIN 

I TOTAL NODAL THERMAL STRAIN 

I GENERALIZED NODAL STRESS (TOTAL) 

I GENERALIZED NODAL STRAIN (TOTAL) 

I INCREMENTAL NODAL STRAIN 

I INCREMENTAL NODAL STRESS 

I INCREMENTAL NODAL PLASTIC STRAIN 

I INCREMENTAL NODAL CREEP STRAIN 

I INCREMENTAL NODAL THERMAL STRAIN 

I GENERALIZED NODAL STRESS (INCREMENTAL) 

I GENERALIZED NODAL STRAIN (INCREMENTAL) 

I LUMPED MASS COEFFICIENT FOR SMOOTHING 
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22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 


I NODAL MATERIAL TANGENT 
I NODAL TEMPERATURE 
I TEMPERATURE DIFFERENCE 
I EQUIVALENT PLASTIC STRAIN (TOTAL) 

I EQUIVALENT PLASTIC STRAIN (INCREMENT) 

I EQUIVALENT CREEP STRAIN (TOTAL) 

I EQUIVALENT CREEP STRAIN (INCREMENT) 

I TOTAL SHIFT TENSOR 

I INCREMENTAL SHIFT TENSOR 

I TVSEWL 

I SWELL 

I GENRALIZED INITIAL STRESS 
I YIELD STRESS DEFINED AT NODES 
I 


It********************** 


CALL TIM3OT 

( 'SUBE' , 'LEME' , 'NT L' , 'OOP ' , 'ENTE' , 'RED 


') 


WRITE (ICQNSL, 2000) IELEM 
FORMAT (3 OX, 'T FT .KM =',I5) 


t ******* ********** 


C 

c 

c 

c 

c 

c 


KSUBEL 

= 

NSUBEL( IELEM ) 

KSUBNP 

= 

NSUBNP( IELEM ) 

KSUBTY 

= 

NSUBTY( IELEM ) 

LBACK 

= 

0 

JMATRX 

= 

1 

KLAW 

= 

JLAW 

ICONVG 

= 

0 

CTQLER 

= 

RET .ERR 


****************************** ##<r##1(f4# ^ # ^ t ^ #4# ^^ A ^ # ^^ # ^ 4# ^ # ^^ # 
HERE ^ NUMBER OF INTEGRATION POINTS / ELEMENT TO BE 
ABLE TO USE SOME 'TRICKS' OF 'REDUCED' INTEGRATION AT LATER STAGE 

********************* 


IGAUS = 0 

IF( JWEIGH .GE. 2) IGAUS = 3 

IF(JWEIGH .GE. 4) IGAUS = 2 

ITRANS = 0 

IF (JWEIGH .GE. 3) ITRANS = 1 

IGAUS = 0 

ITRANS = 0 
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C 

c ****★***************■*■**★**★*★********★★**★★★★★*★★★**★★*★★★★**★★*★****★ 


c *** *** 

c *** SET UP CONTROL VARIABLES ASSOCIATED WITH THE 'VARIATIONAL' *** 
C *** STRAIN RECOVERY AND THE NODAL 'RESIDUAL' CALCULATION FOR THE *** 
C *** AUGMENTED LAGRANGLAN TYPE ITERATION *** 
C *** S.N. 12-09-83/01-31-84/03-21-84 *** 
C *** *** 
C *** JINTER = 1 'REDUCED' INTEGRATION FOR THE RECOVERY PROCESS *** 
C *** =2 'FULL' INTEGRATION *** 
C *** =3 'TRAPEZOIDAL' INTEGRATION *** 
C *** =4 'SELECTIVE' GAUSS INTEGRATION *** 
C *** *** 
C *** JEXTRA = 1 'FULL' INTEGRATION FOR THE RESIDUALS *** 
C *** =2 'REDUCED' INTEGRATION *** 
C *** *** 


C ********************************************************************** 
C 

C JGAUS: CONTROL VARIABLE FOR THE 'RECOVERY' INTEGRATION 
C 




JGAUS 

= 

1 

IF ( JINTER .EQ. 2 

) 

JGAUS 

= 

0 

IF ( JINTER .EQ. 3 

) 

JGAUS 


2 

IF ( JINTER .EQ. 4 

) 

JGAUS 


3 



JTRANS 

= 

0 

IF ( JWEIGH .EQ. 3 

) 

JTRANS 

= 

1 

KGAUS: CONTROL VARIABLE FOR THE 

'RESIDUAL' INTEGRATION 



KGAUS 

= 

0 

IF ( JEXTRA .EQ. 2 

) 

KGAUS 

= 

1 

IF ( JWEIGH .<31. 2 

) 

KGAUS 

= 

3 



INCRSD 

= 

NELINT 

IF ( JEXTRA .EQ. 2 

) 

INTRSD 

= 

1 



KTRANS 

= 

0 

IF ( JWEIGH .EQ. 3 

) 

KTRANS 

= 

1 


********************************************************************** 

ARRANGE SUBELEMENT POINTERS FOR THE GLOBAL WORKAREA 
********************************************************************** 


J CONNC 
J PCORD 
J ECORD 
J DISPL 


IPOINT( 1 , TFT .EM ) 

IPOINT( 2 , IELEM ) 

IPOINT( 3 , IELEM ) 

IPOINT( 4 , IELEM ) 
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J DISPI = IPOINT( 5 , IELEM ) 

J DISPC = I POINT ( 6 , IELEM ) 

J STRAN = IPOINTj 7 , IELEM ) 

J STRST = IPOINTj 8 , IELEM ) 

J TPLAS = IPOINTj 9 , IELEM ) 

J CREPT = IPOINTj 10 , IELEM ) 

J THERT = IPOINrj 11 , IELEM ) 

J GSTRS = IPOINrj 12 , IELEM ) 

J GSTRN = IPOINT( 13 , IELEM ) 

J STRNI = IPOINT( 14 , IELEM ) 

J STRSI = IPOH7T( 15 , IELEM ) 

J PLASI = IPOINrj 16 , IELEM ) 

J CREPI = IPOINT( 17 , IELEM ) 

J THERI - IPOINrj 18 , IELEM ) 

J GSTRI = IPOH7T( 19 , IELEM ) 

J GSTNI = I POINT ( 20 , IELEM ) 

J LUMPM = IPOINrj 21 , IELEM ) 

J DMATX = IPOINTf 22 , IELEM ) 

J TEMPR = IPOINrj 23 , IELEM ) 

J TMPDF = IPOINTf 24 , IELEM ) 

J EQPST = IFOINTf 25 , IELEM ) 

J EQPSI = IPOINr( 26 , IELEM ) 

J EQCST = IPOINr( 27 , IELEM ) 

J EQCSI = IPOINTj 28 , IELEM ) 

J QMEGT = IPOINTf 29 , IELEM ) 

J CMEGI = IPOINT( 30 , IELEM ) 

J TVSWL = IPOINTj 31 , IELEM ) 

J SWELL = IPOINTj 32 , IELEM ) 

J TDSTR = IPOINTf 33 , IELEM ) 

J YIELD = IPOINTj 34 , IELEM ) 


*****^T^I*^ E roR P0INrERS ASSOCIATED WITH THE ELEMENT BUFFER 


KEQCSI = KEQPST 
KSWLNO = KPSTNO 
KICMNO = KCSTNO 


********************************************************************** 
WDRKSPACE ALLOCATION FOR THE CURRENT SUBELEMENT SOLOTION 
************************************************ 1l1t ^ ir ^^ [i[1l ^ [itifiti(ilitici(iririricie 


IASSEM = 1 




CALL SUBELV 

1 ( IWORK , KSUBTY , I ERR ) 

IASSEM = 0 

CALL SUBALC 

1 ( WORKSP, ISTIFF, IELSTF, ILOADV, IELQAD, ISIZE ,KSUBNP,KSUBEL, 

2 NSUNFR,NSUNOD,NSUSTR,NSUIOT, IEBETA, IELDET, IELCOR, IELDMT, 

3 KLAST , ILAST ,IDP ,NSUCRD,IELTDS,IELIDS,IELUTO, JELGTO, 

4 JELDMT,KGSIZE,KESIZE, JELEPS, JELTMP, JTDWRK, JELSTR, IELSTR, 

5 JSUCHR,NSUCHR, JREACT, JRESID) 

CALL SMASTR 

1 ( RWORK , IWDRK ,ISLV ,CTRANS,IELEM ,IC , 0 ) 

C 

IF( JINC .GE. 1 .AND. JITER .(2. 1 ) GO TO 7900 

C 

c ************ *★★*★***★** **★***★★****★★****★★* ********** **************** 
C PHASE 0 : PREPARATION OF LUMPED 'GRAMM' MATRIX FOR STRAIN 
C SMOOTHING 

0 ********************************************************************** 
C 

CALL NUL( RWORK ( JLUMPM) , KSUBNP ) 

C 

DO 4900 ISUBEL = 1 , KSUBEL 

C 

CALL SNODEL 

1 (ISUBEL , IWDRK (JCQNNC) , RWORK (JPCORD) , RWORK (JDMATX), 

2 WDRKSP ( IELCOR) ,WDRKSP( IELDMT) , KSUBEL , KSUBNP , 

3 NSUNOD ,NSUSTR ,NSUCRD ,NSUNFR , 

4 RWORK (JDISPI), RWORK (JDISPL) ,WORKSP(IELIDS) , WORKSP ( IELTOS ) , 

5 KCQNNC , JCONNC , RWORK ( JTOSTR) , WORKSP ( IELUTD) , 

6 RWORK (JGSTRI), WORKSP (IELSTR)) 

CALL IUPMAS 


1 

(RWORK (JLUMPM) , WORKSP (IELDET) 

, IWDRK (KOQNNC) ,NSUNOD 

2 

NSUINT , KSUBNP 

, KSUBTY 

, RWORK (ICHAR) 

3 

WORKSP ( IELCOR) ,NSUCRD 

, ISUBEL 

, KSUBEL 

4 

0 

RWORK (JPCORD) ,NSUCRD 

,CTRANS 

, JGRAM 

4900 

7900 

C O N T I N 

U E 

CONTINUE 


CALL NUL 

1 ( RWORK (JTDSTR) ,NSUSTR*KSUBNP) 

C 

c 

c MIXED ITERATIVE SOLUTION FOR THE SUBELEMENT GRID 
C 
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C (I) TOTAL NUMBER OF ITERATIONS AND CONVERGENCE TOLERANCE ARE SAME AS 
C THOSE DEFINED FOR THE GLOBAL MESH 

C (II) IN CASE OF NO CONVERGENCE ACHIEVED (IF NOT DIVERGE) , THIS 
C ROUTINE RETURNS NORMALLY TO THE MAIN FINITE ELEMENT SOLUTION 
C WITH A LITTLE WARNING MESSAGE 
C 

c ********************************************************************** 

C PHASE 1 : NODAL STRESS / MATERIAL TANGENT CALCULATION FOR THE 
C DISPLACEMENT PRECONDITIONING 

C ********************************************************************** 


N3HARD = 3 * NHARD 

,KSUBNP , RWORK (KYI ELD) , 

/ RWORK ( JYIELD) ) 


CALL SUBINT 

1 (RWORK ( JECORD) ,NELCRD 

2 N3HARD ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NSUNFR ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NSUCMP ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NSUCMP ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NSUCMP ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NSUCHR ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NELSTR ,NELNOD 

CALL SUBINT 

1 (RWORK ( JECORD ),NELCRD 

2 1 ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 NELSTR ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) # NELCRD 

2 1 ,NELNOD 

CALL SUBINT 

1 (RWORK (JECORD) ,NELCRD 

2 1 ,NELNOD 


,KSUBNP , RWORK (IXIRL) , 

, RWORK (JDISPI) ) 

,KSUBNP , RWORK (KIGENO) , 

, RWORK (JSTRNI)) 

,KSUBNP , RWORK (KICSNO), 

, RWORK (JCREPI) ) 

,KSUBNP , RWORK (KITSNO), 

, RWORK (JTHERI) ) 

,KSUBNP , RWORK (KISTRS) , 

,WORKSP( JSUCHR) ) 

,KSUBNP , RWORK (KIGSNO) , 

, RWORK ( JGSTRI) ) 

,KSUBNP , RWORK (KEQCSI) , 

, RWORK ( JEQCSI) ) 

,KSUBNP , RWORK (KIOMNO) , 

, RWORK (JDMEGI) ) 

/KSUBNP , RWORK (KSWINO) , 

, RWORK ( JSWELL) ) 

,KSUBNP , RWORK (KTMPNO) , 

, RWORK ( JTEMPR) ) 
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CALL SUBINT 

1 (RWDRK ( JECORD) ,NELCRD ,KSUBNP , RWDRK (KTDFNO) , 

2 1 ,NELNOD , RWDRK (JTMPDF) ) 

CALL SUBT 

1 (WDRKSP( JHWRK) , RWDRK ( JGSTRI) , RWDRK (JTDSTR) ,KSUENP*NSUSTR ) 
CALL STRESS 

1 (RWDRK (JSTRAN), RWDRK ( JSTRNI ), RWDRK ( JSTRST) , RWDRK (JSTRSI), 

2 RWDRK (JCREPT), RWDRK (JCREPI) , RWDRK ( JTPLAS) , RWDRK (JPLASI), 

3 RWORK ( JIHERT) , RWDRK ( JIHERI) , RWDRK ( JTEMPR) ,WDRKSP( JSUCHR) , 

4 NSUSTR ,NSULAY ,NSUCHR ,NSUNOD , 

5 KSUENP ,NSUNDI f NSUSHR ,JLAW , 

6 RWDRK ( JEQPST) , RWDRK ( JEQPSI) ,KLAW , RWDRK (JC8®TX), 

7 JMATRX , JTEMP , JCREEP ,JITER , 

8 JINC ,NQNISO , RWDRK (JTMPDF) , RWORK (JEQCST), 

9 RWDRK (JTVSWL), RWDRK (JTDSTR) ,JCC*eT f RWDRK (JDMEGT), 

+ RWDRK ( JCMEGI ) , ITHERM ,TIMINC ,RUNITM , 

1 RWDRK (JGSTRN), RWDRK ( JGSTNI ), RWDRK (JGSTRS) , RWDRK (JGSTRI), 

2 NSULAY ,NSUCMP ,LBACK , RWDRK (JSWELL), 

3 RWDRK (JEQCSI), RWDRK (JPCORD) ,NSUCRD ,JPLAST , 

4 ICOMPS , RWORK (IPREF ), RWORK ( JYIEID) ,NHARD , 

5 JUHDOK , 1 , JWKSLP ) 

CALL AE» 

1 (RWDRK (JTDSTR) , RWDRK (JTDSTR) ,WDRKSP( JTDWRK) ,NSUSTR*KSUENP ) 

C 

0 *★***★★★★*****★**★★★★★*★★★*★★★★***★*****★***★★★***★★★*★**********★**★★ 
C MAIN ITERATION LOOP 

C ********************************************************************** 
C 

ISTART = 1 

NSTOPS = NITER + 1 

C 

DO 8000 IS ITER = 1 , NSTOPS 

C 

MCITER = ISITER - 1 

C 

c ********************************************************************** 

C FIRST ELEMENT LOOP : STIFFNESS MATRIX ASSEMBLY 

q ********************************************************************** 
C 

CX IF ( ISITER .CT. 1 ) GO TO 5001 

C 

DO 5000 ISUBEL = 1 , KSUBEL 

C 

IASSEM = 1 

CALL SUBELV 
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1 ( IWORK 

CALL SNODEL 


KSUBTY , IERR ) 


( ISUBEL , IWDRK (JCONNC) , RWDRK ( JPCORD) , RWDRK (JDMATX) 

WDRKSP ( IELCOR) ,WDRKSP( IELDMT) ,KSUBEL ,KSUBNP 

NSUNOD ,NSUSTR ,NSUCRD ,NSUNFR 

RWDRK ( JDISPI ) , RWDRK ( JDISPL) , WDRKSP ( IELIDS ) , WDRKSP ( I ELI DS ) \ 
KCONNC , JCONNC , RWDRK ( JTDSTR) ,WDRKSP( IELGID) . 

RWDRK ( JGSTRI ) , WDRKSP ( IELSTR) ) 

CALL SUBDER 

1 (WDRKSP ( IEBETA) , WDRKSP ( IELDET) , WDRKSP ( IELCOR) , WDRKSP ( IELTDS ) . 

WTiRTCCrp ( TTTT Tnc \ TXaT^IDV /TrUTinx v 7 


2 WDRKSP ( IELIDS j , RWDRK (ICHAR) ,IGAUS 

3 CTRANS ) 

CALL INTERP 

1 ( WDRKSP (JELGTO), WDRKSP (IELGTD), NSUINT 

2 NSUSTR ) 

CALL INTERP 

1 
2 

1 
2 

3 

4 


,ITRANS 


, NSUNOD 


, NSUNOD 


1 

2 

3 

5000 

5001 


(WDRKSP ( JELDMT ) , WDRKSP ( IELDMT ) , NSUINT 
NSUSTR*NSUSTR ) 

IF( ISITER .EQ. 1 ) CALL STIFF 

(WDRKSP (IELSTF) , WDRKSP ( IELQAD) , WDRKSP ( JELGID) ,WDRKSP( IEBETA) , 
WDRKSP ( IELDET ) , NSUSTR , NSUINT ,NSULV , 

NSUIDF ,MCITER ,WDRKSP( JEELMT) , 1 

1 ,LBACK ,0 ,0 ) 

IF( ISITER .EQ. 1 ) CALL SYSEQN 

(WDRKSP ( ISTIFF ) , WDRKSP ( ILQADV) , WDRKSP ( IELSTF) .WDRKSP ( IELQAD ) , 

TT/XTOTT / TPnMKVM XTOT1M r\r\ iTrrmmn V 7 ' 


IWDRK (JCONNC) , NSUNOD 
KSUBEL ,KGSIZE 


,NSUNFR 
, RESIZE 


,KSUBNP 
, ISUBEL 


CONTINUE 


CONTINUE 


* 

* 

* 

* 

C 

c 

c 


CALL SUBSGL 

1 (WDRKSP (ISTIFF) , WDRKSP (ILQADV) ,KGSIZE , RWDRK ( JDISPC) , 

2 NSUNFR ,KSUENP , RWDRK (JDISPI) ,NELNFR 

3 NEU'JOD , NSUNOD ,KEMBED .ISITER 

4 WDRKSP (JREACT) , KSUBEL ) ' 

CALL ADD 

1 (RWDRK (JDISPI) , RWDRK ( JDISPI ), RWDRK (JDISPC) ,NSUNFR*KSUENP ) 
CALL PJOOP ' 

1 (RWDRK (JDISPI), 'DISDC',NSUNFR*KSUBNP) 

CALL PJOOP 

1 (RWDRK (JDISPC) , 'DISCOR' ,NSUNFR*KSUBNP) 

*********************************************^^ # ^^^^^^ 
PHASE 2 : NODAL STRAIN RECOVERY 
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C SECOND ELEMENT LOOP : 

Q ********************************************************************** 

c 

CALL NUL 

1 (RWORK ( JGSTNI ) , NSUSTR*KSUENP ) 

C 

DO 5100 ISUBEL = 1 , KSUBEL 

C 


IASSEM = 0 

CALL SUBELV 

1 ( IWORK , KSUBTY , I ERR ) 

CALL SNODEL 

1 (ISUBEL , IWORK ( JCQNNC) , RWORK ( JPCORD) ,RWORK (JDMATX), 

2 WORKSP ( IELCOR) , WORKSP ( IELDMT) , KSUBEL ,KSUBNP , 

3 NSUNOD , NSUSTR ,NSUCRD ,NSUNFR , 

4 RWORK ( JDISPI ) , RWORK (JDISPL) , WORKSP ( IELIDS) ,WORKSP( IELTDS) , 

5 KCQNNC , JCONNC , RWORK ( JTDSTR) ,WORKSP( IELGTD) , 

6 RWORK (JGSTRI) , WORKSP (IELSTR) ) 

CALL SUBDER 

1 (WORKSP (IEBETA) , WORKSP ( IELDET ) , WORKSP (IELCOR) ,WORKSP( IELTDS) , 

2 WORKSP ( IELIDS ) , RWORK (ICHAR) ,JGAUS , JTRANS , 

3 CTRANS ) 

CALL STRAIN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

C 

5100 


(RMDRK (JGSTNI) ,WDRKSP( JELEPS) ,WORKSP( IELIDS) ,WORKSP( IEBETA) , 
NSUSTR ,NSUINT ,NSUNFR ,NSUNCD , 
NSUIDF ,KSUBNP ,RWORK ( JLUMPM) ,WORKSP( IEIDET) , 
RWORK (KCONNC) , JGAUS , WORKSP ( JELTMP ) , JTEMP , 
RW3RK ( JTOERI) ,RW0RK (ICHAR) ,NSUCHR ,JLAW , 
NSUSTR , KSUBTY ,WDRKSP( IELCOR) ,NSUCRD , 
CTRANS ,RW0RK ( JSTRNI) / NSULAY ,NSUCMP , 
WORKSP ,VDRKSP / RWORK (JCREPT) ,RWORK (JTHERT) , 
JISTRN ; JCITER ) 


CONTINUE 


C 

C 

C 

C 


*************** ****★*★★★★***** ********************************* ***★★★* 


CALL STRESS 

1 (RWORK ( JSTRAN) / RW0RK (JSTRNI) ,RW0RK (JSTRST) ,RWORK (JSTRSI) , 

2 RWORK (JCREPT), RWORK ( JCREPI) , RWORK ( JTPLAS) , RWORK (JPLASI), 

3 RWORK (JTHERT), RWORK ( JIHERI ), RWORK ( JTEMPR) , WORKSP (JSUCHR) , 

4 NSUSTR ,NSULAY ,NSUCHR , NSUNOD , 

5 KSUBNP ,NSUNDI ,NSUSHR ,JLAW , 

6 RWORK (JEQPST), RWORK ( JEQPSI) ,KLAW , RWORK (JDMATX) , 
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7 

8 
9 
+ 

1 

2 

3 

4 

5 

DO 


JMATRX , JTEMP ,JCREEP ,ISITER 

JINC ,NQNISO , RWORK ( JTOPDF) , RWORK ( JEQCST) 

FWORK (JTVSWL) , RWORK ( JIDSTR) , JCQNST , RWORK (JQMECT) 

FWDRK ( JQMEGI ) , ITHERM ,TIMINC ,RUNTIM 

RWDRK ( JGSTRN ) , RWORK ( JGSTNI) , RWORK ( JGSTRS) ,RWORK (JGSTRI) 
NSULAY ,NSUCMP ,LBACK ,RWORK (JSWELL) 

RW3RK ( JEQCSI) , RWORK (JPCORD) ,NSUCRD , JPLAST 


ICQMPS 

JUHOGK 


5200 


/RWORK (IPREF j, RWORK ( JYIELD) ,NHARD 
0 , JWKSLP ) 

ISUBEL = 1 KSUBEL 


CALL SNODEL 

(ISUBEL , IWORK (JCONNC) , RWORK (JPCORD) , RWORK ( JDMATX) 

W3RKSP ( IEDCOR ) , WORKSP ( IELDMT ) , KSUBEL ,KSUBNP 

nsunod ,NSUSTR ,NSUCRD ,NSUNFR 

RW3RK ( JDISPI ) , RWORK ( JDISPL ) r WORKSP ( IELIDS ) , WORKSP ( IELTDS ) 
KCONNC , JCONNC , RWORK (JTOSTR) ,WORKSP(IELGTD) 

RWORK (JGSTRI) , WORKSP (IELSTR) ) 

CALL SUBDER 

1 (WORKSP ( IEBETA) , WORKSP ( IEILET) , WORKSP (IEDCOR) , WORKSP ( IELTDS ) 

WnRKCTP { TFT THQ N /TPmn\ ' 7 


2 WORKSP ( IELIDS ) , RWORK (ICHAR) .IGAUS 

3 CTRANS ) 

CALL INTERP 

1 ( WORKSP (JEDGTD) , WORKSP (IELGTD) ,NSUINr 

2 NSUSTR ) 

CALL INTERP 

1 ( WORKSP (JELSTR) , WORKSP (IELSTR) ,NSUINT 

2 NSUSTR ) 

CALL SUBRES 


,ITRANS 


,NSUNOD 


,NSUNOD 


(ISUBEL , WORKSP (ILOADV) , WORKSP (JELGIT)) .WORKSP (JELSTR) 

IWORK (KCQNNC) ,NSUNOD , NSUSTR ,NSUNFR 

NSUH7T , WORKSP ( IELOAD) ,WORKSP( IEBETA) , RESIZE 

KSUBNP , RWORK (JDISPI) ,KGSIZE ,ICQNVG 

CTQLER /WORKSP ( IELDET) , IWORK ( JCONNC ) , LLPRNT 


5200 


ICCNSL /KSUBEL ,M0ITER 

WORKSP (JREACT) ,W0RKSP( JRESID) ) 

CONTINUE 


/ENGflOT 


C 

C 


CALL SUBCHK 

1 (R WORK (JDISPC) /RWORK ( JDISPI) ,KGSIZE 

2 ISITER /ICQNVG ) 


/DISTOR 
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C CHECK TOE DISPLACEMENT CONVERGENCE 

Q *★★★★*★★★★*★***★*★*★*★★★*★★**★*****★★★★***★****★★★★*************★★*★** 

C 

IF( ICONVG .EQ. 1 ) GO TO 8100 

C 

8000 CONTINUE 

C 

0 ★★★★★★★***★★★★★★****★★★★★*★*★*★***★★*★★**★★★★**★★★*★**★★*★★★★***★*★★★★ 
C CALCULATE TOE CONTRIBUTION OF SUBELEMENT REFINEMENT IN TERMS OF 
C TOE GLOBAL RESIDUAL VECTOR 

0 iritic + ieiriciciticiticiriciriricicieiciciticieicicicicicicicici'ltieicitirieiciticiticiciti'ititieificicicicititie + icicicicicic'k'k-k'k'k 

c 

8100 CONTINUE 

C 

CALL SUBINT 

1 (RWORK ( JECORD) ,NELCRD ,KSUBNP ,RWORK (KIGSNO), 

2 NELSTR ,NELNOD , RWORK (JGSTRI)) 

IF( JSUBRE .EQ. 0 ) CALL SUBGLB 

1 (IC , RWORK (IXP) , RWORK (JSTRST) , RWORK (JSTRSI), 

2 IWORK ( JCONNC) ,NSUN0D ,NSUSTR ,NSUNFR , 

3 NSUINT , IDF ,WORKSP , RWORK (IBETA) , 

4 RWORK (JECORD), RWORK (ICOR) , RWORK (JLUMPM) , NELSTR , 

5 NSUCRD , NET CRD ,NEINOD ,KSUBNP , 

6 KSUBEL ,NFD , RWORK (IREAC) , IWORK (IELV) , 

7 RWORK ( ISRL) ,NEXT ,INEXT , RWORK (ICH) , 

8 NELCHR ,NELNFR , RWORK ( JGSTRI) ,WORKSP( JTDWRK) , 

9 KEMBED ) 

IF( JSUBRE .NE. 0 ) CALL SUBGLD 

1 (IC , RWORK (IXP) , RWORK (JSTRST) , RWORK (JSTRSI), 

2 IWORK (JCONNC) ,NSUNOD ,NSUSTR ,NSUNFR , 

3 NSUINT , IDF , RWORK (KIGSNO) , RWORK (IBETA) , 

4 RWORK (JECORD), RWORK (ICOR) , RWORK (JLUMPM) , NELSTR , 

5 NSUCRD , NET CRD ,NELNOD ,KSUBNP , 

6 KSUBEL ,NFD , RWORK (IREAC) , IWORK (IELV) , 

7 RWORK (ISRL) ,NEXT ,INEXT , RWORK (ICH) , 

8 NELCHR ,NELNFR , RWORK (IDET) ,NELENT , 

9 RWORK (KIGSIG) ,INTRSD ,IC ,KSUBTY 

+ KEMBED ,W0RKSP , RWORK ( JGSTRI) ,WORKSP( JTCWRK) ) 

C 

0 ********************************************************************** 

c 

RETURN 

END 

2.3 Counters and Pointers 
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Most of the variables used as either counters or pointers are 
documented in the Fortran source program. In this section, we discuss the 
counter and pointer variables stored in the cannon blocks: 

START 1 

Stores pointers for storing global data and sane of the element data. 
Variables are: 

IELPRM Pointer to the array storing the element parameters for all 
element types used in the present mesh. 

ITYP Pointer to the element type identifier array. 

INEL Pointer to the element connectivity array. 

ICHAR Pointer to the nodal material property data array. 

IPRES Flag for pressure loading. 

IPRINT Pointer to the line printer output control data array. 

IBPRES Pointer to the nodal pressure definition array. 

IBNORM Pointer to the nodal array storing the components of the 

nodal point normal. 

START 2 

Stores pointers for the global mesh data. Variables are: 

INDD Pointer to the nodal coordinate definition array. 

ITEM Pointer to the nodal total temperature array. 

ITEMDF Pointer to the nodal incremental temperature array. 

IDUP Pointer to the array storing the duplicate node input data. 

START 3 

Stores the pointers for the global nodal constraint and loading data 
arrays. Variables are: 

IKBC Starting address for the nodal displacement constrain 
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array. 


ITI 

ITR 

ITRAN 

ISBC 

ISBCR 

START 4 
Stores the 
IDINC 
IDIOT 
IFORCE 

IRES ID 
IWTNOD 
ISIGNO 
IEPSNO 
IPSTNO 
ICSTNO 
ITSTNO 
IISTTJO 
IISNNO 

SYSTEMS' MANUAL 


Pointer to the integer array for defining the tying 
equations . 

Pointer to the real array for defining the tying equations. 

Starting address of the array for nodal coordinate 
transformation input. 

Starting address of the integer array for storing nodal 
stress boundary condition data input. 

Pointer to the real array for the prescribed nodal stress 
values . 

pointer for nodal data storage. Variables are: 

Pointer to the incremental displacement array. 

Pointer to the total displacement array. 

Pointer to the total load vector due to the mechanical 
loading. 

Pointer to the residual vector. 

Not used in version 4.2. 

Pointer to the total nodal stress array. 

Pointer to the total nodal strain array. 

Pointer to the total nodal plastic strain array. 

Pointer to the total nodal creep strain array. 

Pointer to the total nodal thermal strain array. 

Pointer to the incremental nodal stress array. 

Pointer to the incremental nodal strain array. 
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IIPSNO 

IICSNO 

IITSNO 

IDMTNO 

ICMENO 

ITDSNO 

IDYNA 

IDYNV 

IPREF 

IDFDJC 

IDFTOT 

IYIEHJD 

START ! 
Stores 
IRL 

IREAC 


Pointer to the incremental nodal plastic strain array. 

Pointer to the incremented nodal creep strain array. 

Starting address for the incremental thermal strain defined 
at nodes. 

Starting address for the material tangent arrays defined at 
nodes. In case of shells, the constitutive resultant array 
is stored. 

Starting address for the total shift tensor defined at 
nodes. This array is used for the kinematic hardening and 
the unified viscoplastic constitutive models. 

Starting address for the total initial stress terms due to 
the initial strain terms defined at nodes. 

Starting address for the total nodal acceleration array. 

Pointer to the total nodal velocity array. IDYNA and IDYNV 
are defined only when the transient analysis option is 
invoked. 

Pointer to the material orientation vector for anisotropic 
material response defined at a node. 

Pointer to the nodal array for the incremental deformation 
gradient. This array is allocated and used for finite 
deformation analysis. 

Pointer to the nodal array for the total deformation 
gradient. 

Pointer to the array used to define nodal ly the strain 
hardening slope table. 


pointers for global arrays. Variables are: 

Starting address for a vector storing the nodal loads 
including the residual. 

Starting address for a vector storing the nodal reactions. 
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Starting address for the space of banded global stiffness 
matrix. Not used in Version 4.2. 


IAB 

ILAST 

IDIAG 

IUPTRI 

ICQLPT 

IMASDI 

IMASUP 
START 6 


Starting address for the space to pull a row of the global 
stiffness array. 

Pointer to the last word used in the blank cannon 
workspace. 

Pointer to the array for diagonal entries of the global 
stiffness array stored in profile form. 

Pointer to the array storing the upper triangular part of 
the global stiffness array in profile form. 

Pointer to the integer array storing the column height for 
each degree of freedom of the global stiffness matrix in 
profile form. 

Pointer to the space reserved for the diagonal entry of the 
global mass matrix. This space is allocated only when the 
modal analysis option is invoked. 

Pointer to the upper triangular entries of the mass matrix 
stored in profile form. 


Stores pointers for the element workspace. Variables are: 


IELV 

Starting address for the 
being processed. 

ICOR 

Starting address for the 
current element. 


connectivity array of the elenent 
nodal coordinate array for the 


ISIG 

IEPS 

IXKL 


Starting address for the element total stress array at 
integration points . 

Starting address for the element total strain array at 
integration points. 

Starting address for the total no dal displacement array 
defined for the current element. 
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IXIKL 

IXP 

IXK 

KPSTNO 

KCSINO 

KTSTNO 

KISTNO 

KISNNO 

KtPSNO 

KICSNO 

KITSNO 

KDMAT 

KDMTNO 

KTDSNO 

KITDST 


Starting address for the incremental nodal displacement 
array. 

Starting address for the workspace to store the element 
load vector. 

Starting address for the workspace for the element 
stiffness array. 

Pointer to the nodal plastic strain array for the current 
element. 


Pointer to the nodal creep strain array for the current 
element. 


Pointer to the nodal thermal strain array for the current 
element. 


Pointer to the nodal incremental stress for the current 
element. 


Pointer to the nodal incremental strain for the current 
element. 

Pointer to the nodal incremental plastic strain for the 
current element. 

Pointer to the nodal incremental creep strain for the 
current element 

Pointer to the nodal incremental thermal strain for the 
current element. 

Pointer to the element material tangent array defined at 
the integration points for the current element. 

Pointer to the nodal material tangent array for the current 
element. 

Pointer to the nodal array for the initial stress due to 
initi a l stra i ns such as thermal and creep effects defined 
for the current element. 

Pointer to the element initial stress vector. 
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START 7 


Stores 

ICON 

IKBCR 

ITRANR 

ITRACR 

ITRANR 

IBETA 

IDET 

START l 
Stores 
KC3TS 

KIGEPS 

KGEPS 

KICEPS 

KGSIG 


more pointers for global and element arrays. Variables are: 

Not used in Version 4.2. 

Starting address for a double precision real, array storing 
the prescribed displacement values . 

Starting address for a double precision real array storing 
the angle of rotation for the user specified nodal 
coordinate transformations. 

Starting address for a double precision real array storing 
the values of user specified nodal concentrated loads. 

Starting address for a double precision r eal array storing 
the values of user specified nodal coordinate 
transformations . 

Starting address for a double precision real array storing 
the strain displacement matrix at integration points of the 
current element . 

Starting address for a double precision r eal array storing 
the determinant of the Jacobian for isoparametric mapping 
at integration points of the current element. 


pointers for the resultant quantities. Variables are: 

Pointer to the strain resultant array at element 
integration points. 

Pointer to the incremental strain resultant array at 
element integration points. 

Pointer to the strain resultant array at element 
integration points . 

Pointer to the incremental strain resultant array at 
element integration points. 

Pointer to the stress resultant array at element 
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KIGSIG 

KG7TOST 


Pointer to the incremental stress resultant array at 
element integration points. 

Pointer to the total resultant for initial stress at 
element integration points. 


IGEPNO 

IIGENO 

IGSINO 

IIGSNO 

IGTONO 

KGEFNO 

KIGENO 

KGSINO 

KIGSNO 

KGrTDNO 

START 9 


Pointer to the global array for the strain resultants. 

Pointer to the global array for the incremental strain 

resultants . 

Pointer to the global array for the stress resultants. 

Pointer to the global array for the incremental stress 

resultants . 


Pointer to the global array for total resultants of initial 
stress. 


Starting address for the nodal array of strain resul ta n ts 
of the current element. 

Starting address for the nodal array of incremental strain 
resultants of the current element. 

Starting address for the nodal array of stress resultants 
of the current element. 

Starting address for the nodal array of incremental stress 
resultants of the current element. 

Starting address for the nodal array of total resultant for 
initial stresses of the current element. 


Stores pointers for creep related quantities. Variables are: 

KEQCSI Pointer to the equivalent incremental creep strain at nodes 
of the current elanent. 

KEQCST Pointer to the equivalent total creep strain at nodes of 
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the current element. 

3.0 THE FILE SYSTEM 

This chapter is devoted to a discussion of the file system for 
supporting a series of structural analyses by the MHOST program. In the 
next section, the overview of this file system is presented followed by a 
detailed discussion on the user interface (input and output files), restart 
file, and post-processing data file. 

3 . 1 Overview 

The MHOST program is a batch processor and when execution is initiated 
the user does not need to interact with the program until the Fortran STOP 
statement is executed (or an execution error is detected by the operating 
system) . Under an interactive operational environment, the code produces 
a summary of the execution log on the terminal screen. Note that the sane 
information is written on the main output file. 

The file system is composed of three parts: the standard input and 
output files referred to as the user interface; the restart file; and the 
post processing data file. The main report part, is referred to as Fortran 
unit number ILPRNT (see Block Data Subprogram, carnon block ALGEM) which 
consists of the input data echo print (card image print out) , the input data 
as it is interpreted by the MHOST code, and the summary of execution such as 
the usage of memory and time consumed by CPU. Hie analysis result part is 
referred to as Fortran unit number JLPRNT. To make this logical dis tinction 
clear, separate header records and page counters are provided to these 
units. 

Hie user interface files are the standard input file, the log file and 
the line printer output file. All the instructions to accomplish the 
analysis task are written in the input file. The MHOST program assumes that 
the input file is a card image file. That is, the input file is a 
sequentially accessed, formatted file, and the record length is fixed to 80 
bytes. Under most operating systems (perhaps IBM systems are the only 
exceptions), it is not necessary to declare explicitly the record length. 

As shown in the next section, records are individually read into the read 
buffer as 80 separate characters and the user interface routine Henri e s each 
line. 


The output file is assumed to contain 132 bytes/record which is the 
standard width for most line printers (as well as other printers driven in 
the same manner as the line printer) . Again, except for IBM systems, this 
file is opened without explicitly specifying the record length. The line 


SYSTEMS' MANUAL MHOST Version 4.2 

Page : 104 


I 



printer file is logically separated into two parts. As the default setting, 
the code is delivered with the same Fortran unit number. 

The log file is the standard output unit on which the system's messages 
are printed. This file is defined as Fortran unit ICONSL and is handled in 
a manner which depends on the computer systems default value for interactive 
terminal output. 

Typically, on PRIME systems, ICONSL is the unit number 1 (one) and 
under the UNIX environment, unit number 6 (six) is assigned to ICON S L. 

The restart, file is a sequentially accessed binary file. The record 
length is fixed to 256 bytes / record . The contents of ccmmon block and the 
work space are written and read by the MHOST code. This file is referred to 
as Fortran unit number IRSTRT. The unit number 8 (eight) is assigned as 
default value when the MHOST code is delivered. 

The post-processing file is a sequentially written formatted file. A 
record length of 80 bytes is implicitly assumed but not necessarily dec 1 fired 
explicitly when the file is opened (under most operating systems) . Except 
for minor differences in the format to write nodal stresses and strains, 
construction of this file is compatible with the post-processing file output 
of the MARC general purpose finite element package version Kl. Any 
commercially available finite element post-processing package can easily be 
modified to read this file. The MENIAT interactive finite element pre- and 
post-processing package available from MARC is shipped with the MHOST post- 
processing interface as a standard feature. 

3.2 User Interface 

The free format reader is written in Fortran 66 to interpret data 
coming in through the input data file in a line-by-line manner. Two 
utilities are available. One is the keyword interpreter SUBROUTINE KEY and 
another is the free format numeric data reader SUBROUTINE FREPOR: 

C SUBROUTINE KEY 

SUBROUTINE KEY(NAME,NOPT,IOPT,NN,IN,IERR) 

C 

c* * ★ * * ★ 
c 

C CHECKS STRING FOR KEYWORD 
C 

C NAME KEYWORD NAMES 

C NOPT NUMBER OF KEYWORDS 

C IOPT KEYWORD FLAG 
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C NN INTEGER PARAMETERS 

C IN NUMBER OF INTEGERS 

C IERR ERROR FLAG 

C 

C* * * * * * 

C 

IMPLICIT REAL* 8 (A-H,0-Z) 

C 

DIMENSION NAME(l) ,NN(4) 

CCMtCN / ALCEM / ICREAD,m>ENT,JLPRNT,ICONSL,IPOSTF,ISCRAF, 

1 IPLOTB, IRSTRT, JCREAD,IPVARS, IPSETS, IFILEX, 

2 PI ,UNE ,LINE2 

C0MMDN/FREE/IA( 80 ) , IBEGIN( 16 ) , ILENGT( 16 ) ,NSTRIN, IS, ICOL,NEW 
LOGICAL NEW 

1 CONTINUE 
JKEY=1 

CALL STRING ( IERR, JKEY, 1) 

IS=IS+1 
IB=IBEGIN( IS) 

IL=ILENGr( IS ) 

IF(IL.LT.3) GOTO 99 

IF(IL.Gr.4) Hj=4 

Il=-4 

IB1=IB-1 

DO 3 I=l,NOPT 

11=11+4 

DO 2 J=l, IL 

IF(IA(IB1+J) .NE.NAME(I1+J) ) GOTO 3 

2 CONTINUE 
IOPT=I 
GOTO 4 

3 CONTINUE 
GOTO 99 

4 CONTINUE 
C 

IF(IN.EQ.O) GOTO 100 
DO 5 1=1, IN 
IS=IS+1 
IB=IBEGIN( IS) 

IL=ILENGT(IS) 

CALL DECINr(NNI, IA( IB) , LL, IERR) 

NN(I)=NNI 

5 CONTINUE 
GOTO 100 
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99 CONTINUE 
IERR=IERR+1 
CALL LINES ( 1, 1) 

L=IB — 1+IL 

WRITE ( LLPRNT, 1001 ) (IA(I) ,I=IB,IL) 

1001 FORMAT(2X,11H***ERROR***,5X,25HSTRING IS NOT A KEYWORD: ,78A1) 
GOTO 1 ' 

100 CONTINUE 
RETURN 
END 

C SUBROUTINE FREPOR 

SUBROUTINE FREFOR(INIW,REAW,NINr,NREA,NVAR, IERR, JKEY) 

c* * ★ * ★ ★ 

C 

C FREE FORMAT ROUTINE 
C 

C INIW INTEGER WORKSPACE 

C REAW REAL WORKSPACE 

C NINT NUMBER OF INTEGERS 

C NREA NUMBER OF REALS 

C NVAR 

C IERR ERROR FLAG 

C JKEY 

C 

C* * * * * * 

c 

IMPLICIT REAL* 8 (A-H,0-Z) 

REAL* 4 REAW 
C 

COMMON / ALGEM / ICREAD, ILPRNT, JLPRNT, ICGNSL, IPOSTF, ISCRAF, 

1 IPIOTB, IRSTRT, JCREAD, IPVARS, IPSETS , IFELEX, 

2 PI /LINE /LINE2 

CCMM0N/FREE/IA( 80) , IBEGIN( 16 ) , ILENGT( 16 ) ,NSTRIN, IS, ICQL,NEW 
DIMENSION INIW(l) ,REAW(1) 

LOGICAL LREA,NEW 
IC=0 

CALL STRING (IERR, JKEY, 1) 

IF ( JKEY . EQ . 1 ) GOTO 30 
JKEY=0 
C 

IF ( NINT . LE . 0 ) GOTO 10 
DO 1 1=1, NINT 
IF(ICQL.LE.76) GOTO 2 
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JKEY—1 

CALL STRING ( IERR, JKEY, 1) 

IF( JKEY.EQ. 1) GOTO 30 
JKEY=0 
2 CONTINUE 
IC=IC+1 
IS=IS+1 
ICOL=ICQL+5 
IB=IBEGIN ( IS ) 

IL=ILENCT( IS) 

CALL DECINT( IDUM, IA( IB) , IL, IERR) 

INIW(IC)=IDUM 
1 CONTINUE 

10 CONTINUE 
C 

IF(NREA.LE.O) GOTO 20 
DO 11 I=1,NREA 
IF(IOGL.LE.71) GOTO 12 
JKEY—1 

CALL STRING( IERR, JKEY, 1) 

IF( JKEY.EQ. 1) GOTO 30 
JKEY=0 
12 CONTINUE 
IC=IC+1 
IS=IS+1 
ICGL=ICQL+10 
IB=IBEGIN( IS) 

IL=ILENGr( IS) 

C 

REAW(IC)=0. 

C 

IF( IL .NE. 0 )CALL DECREA(REAW(IC),IA(IB),IL,IERR) 
C 
C 

11 CONTINUE 
20 CONTINUE 

C 

IF(NVAR.EQ.O) GOTO 30 

LREAfNVAR.GT.O 

NTOT=IABS(NVAR) 

IF(ICQL.LE.76) GOTO 23 
JKEY—1 

CALL STRING (IERR, JKEY, 1) 

IF( JKEY.EQ. 1) GOTO 30 
JKEY=0 
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23 CONTINUE 
IS=IS+1 
ICGL=ICOL+5 
IB=IBEGIN ( IS ) 

IL=ILENCT( IS) 

CALL DEdNT(NVAR,IA(IB) ,IL,IERR) 

IF(NVAR.LE.O) GOTO 30 
C 

NIOT=NIOT*NVAR 
DO 21 1=1, NIOT 

IF(IC0L.LE.71.0R. (ICCL.LE.76.AND. .NOT.LREA) ) GOTO 24 
JKEY=-1 

CALL STRING ( IERR, JKEY, 1) 

IF( JKEY.EQ. 1) GOTO 30 
JKEY=0 

24 CONTINUE 
IC=IC+1 
IS=IS+1 
IC0L=ICQL+5 
IB=IBEGIN ( IS ) 

Hj=ILENGr( IS ) 

IF(LREA) GOTO 22 

CALL DECINT( IDUM, IA( IB) , IL, IERR) 

INIW ( IC ) =IDUM 
GOTO 21 
22 CONTINUE 
ICGL=ICQL+5 
C 

REAW(IC)=0. 

C 

IF ( Hi .NE. 0 )CALL DECREA(REAW(IC),IA(IB),IL,IERR) 

21 CONTINUE 
30 CONTINUE 
RETURN 
END 

An example of usage of the above utilities is the parameter data reader 
SUBROUTINE DATIN1: 


C . . . SUBROUTINE DATIN1 . . . CALLED BY SUBROUTINE 'HOST' OR 'F E M' 
C 

SUBROUTINE DAT INI 

1 (RWDRK , IWDRK ,ISIZE ,VERSNO,MDNIH , JDATE ,NELEM ,NNCDE , 

2 NBC ,NTIE ,NMAX ,NTRAN ,NTRAC ,NPOST ,NLVSUB,NFRSUB, 
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3 NEXT , JDYN ,JTEMP , NPRINT , JREST ,JINC ,NINC ,JLCOB , 

4 JINrEK,JEXTRA,JWEIGH / NSTRBC,NrYPE ,MAXSUB,ILAST ,JSUB , 

5 NSUB , ISTAT , IDYNM ,ITEST , JOPTIM, JCREEP , JDIST ,NONISO, 

6 NDYNMD , IDYNMD , NPOSMD , I THERM, JCQNST , NDUP , JREPOT, JTANGE, 

7 JIHERM, DALPHA, DBETA ,DGAMMA, JEIC£N, JPORCE, JOTEMP, JUCOEF, 

8 JDISTS , JUHQGK, JDERTV , JUBCUN, JPEROD,NSENC ,NCREEP,ATOLER, 

9 BTTDLER,CTOLER, JPOST , INTSTR, JBAND , JFICNr, JDEPOR,NGMRS , 

+ JEMBED , NBSECT , JDISP , NSHIET , NSUPER, JSUBRE , IFBFGS , NSPRI , 

1 NDASH ,NMASS , NSBFGS , IFSCNT , IFLINE , IFPRNT , NHARM ,CMEGH , 

2 NBASE ,OMEGB ,ICCM>S,NPDPTS,NPULSE,IPCCNJ,NSSPTS,NSHOCK, 

3 NPSPTS,NFDPTS,LDYN , JFDSXX, JISTIF, JCENIM,NHARD ,JFINIT, 

4 JLARGE, JFOLCW, JWKSLP, JISTRN, JCITER, JHRGLS,NDIMEN, JGRAM , 

5 JPRES ,NM0NIT) 

C 

C ********************************************************************** 
C 

C READ THE CONTROL DATA AND PARAMETERS ASSOCIATED WITH THE CORE 
C STORAGE ALLOCATION 
C 

C ********************************************************************** 
C 


IMPLICIT REAL* 8 ( A-H , O-Z ) 

REAL*4 RWORK 
C 
C 

0 ********************************************************************** 
C 

DIMENSION RWORK ( ISIZE) ,IWORK ( ISIZE) 

DIMENSION NFRSUB(MAXSUB) ,NLVSUB(MAXSUB) 

DIMENSION NAME ( 4, 72) ,NN ( 6) 

DIMENSION NAME1 ( 4, 34) ,NAME2 ( 4, 36) 

DIMENSION NAME3 (4,2) 

DIMENSION JPEROD( 2) 

C 


C 

C 

C 


EQUIVALENCE (NAME( 1, 1),NAME1( 1, 1)) 
EQUIVALENCE (NAME( 1,35),NAME2( 1, 1)) 
EQUIVALENCE (NAME( 1,71),NAME3( 1, 1)) 


********************************************************************** 


COMMON 

1 

2 

COMMON 

COMMON 


/ ALGEM / ICREAD, ILPRNr, JLPRNT, ICONSL, IPOSTF, ISCRAF, 
IPLOTB , IRSTRT , JCREAD , IPVARS , IPSETS , IFLLEX , 
PI ,LINE ,LINE2 
/ COUNT / LININC,LINIOT, NOECHO 

/ CTITLE / TITLE ( 20),IDAT ( 5) , IDATE2 , ICLOCK, 
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neuron 


c 

c 

c 


c 

c 

c 

c 

c 


1 IFCRAY 

COMMON / ERRORS / IERR 

COMMCN / FREE / IA ( 80) ,IBEGIN( 16),ILENCT( 

1 nstrin, IS ,ICQL ,NEW 

LOGICAL NEW 


16), 


DATA NAME1 


★ 

* 

* 

★ 

★ 

if 

★ 

* 

★ 

★ 

* 

★ 

c 

* 

* 

★ 

* 

it 

it 

it 

it 

it 

it 

★ 

★ 


/1HE, 

rlHL, 

r 1HE, 

rlHM, 

1HN, 1HO, 1HD, 

r 1HE, 

1HB, 

r 1HO, 

rlHU, 

rlHN, 

1HT, 

1HY, 

. 1HI, 

rlHN, 

1111,11^,11^, 

- 1HN, 

1HF, 

- 1HO, 

rlHR, 

rlHC, 

IHP, 

1HD, 

• 1HS, 

1HT, 

1HS, 1HU, 1HB, 

rlHS, 





1HE, 

1HX, 

1HT, 

1HE, 

IHP, 1HR, 1HE, 

. 1HS, 

1HT, 

. 1HE, 

- 1HM, 

. IHP, 

IHP, 

1HR ( 

1HI, 

1HN, 

1HR, 1HE, 1HS, 

. 1HT, 

1HL, 

. mo, 

r 1HU, 

. 1HB, 

1HS, 

1HT, 

1HR, 

1HE, 

1HE, 1HN, 1HD, 

m , 





1HT, 

1HE, 

1HS, 

mr. 

1HD, 1HY, 1HN, 

1HA, 

mo, 

IHP, 

. 1HT, 

1HI, 

1HT, 

1HR, 

1HA, 

me, 

mC,lHR,lHE, 

1HE, 

1HA, 

1HN, 

im, 

1HS, 

1HM, 

1HD, 

1HD, 

1HA, 

mB,mu,mc, 

1HK, 

mr, 

1HH, 

1HE, 

1HR, 

UC, 

1HD, 

1HN, 

1HS, 

1HD, 1HI, 1HS, 

1HT, 

1HD, 

1HU, 

IHP, 

1HL, 

1HR, 

1HE, 

1HP, 

1HO, 

1HT, 1HA, 1HN, 

1HG, 

1HU, 

mr, 

1HH, 

1HE, 

1HS, 

22 

1HC, 

1HH, 

1HE, 

mu,iHF,mo, 

1HR, 

1HU, 

mr, 

1HE, 

1HM/ 

/1HU, 

1HC, 

mo, 

1HE, 

1HU, IHP, 1HR, 

1HE, 

mu. 

1HH, 

mo. 

mo. 

1HU, 

1HD, 

1HE, 

LHR, 

mu,iHB,mo, 

1HU, 

IHP, 

1HE, 

1HR, 

im. 

1HB, 

1HA, 

1HN, 

1HD, 

1HF, 1HR, 1HO, 

1HN, 

1HD, 

1HE, 

1HF, 

mo. 

1HE, 

1HM, 

1HB, 

IKE, 

me, 1HM, 1HR, 

1HS, 

1HB, 

1HE, 

1HA, 

1HM, 

1HD, 

1HI, 

ms, 

IHP, 

1HS, 1HH, 1HI, 

1HF, 

1HB, 

1HF, 

1HG, 

1HS, 

1HS, 

1HP, 

1HR, 

1HI, 

1HD, 1HA, 1HS, 

1HH, 

1HM, 

1HA, 

1HS, 

1HS, 

1HS, 

1HE, 

me. 

1HA, 

1HL, 1HI,1HN, 

1HE, 

1HH, 

1HA, 

1HR, 

1HM, 

1HB, 

1HA, 

1HS, 

1HE, 

me,mo,iHM, 

IHP, 

IHP, 

1HU, 

1HL, 

1HS, 

1HC, 

mo. 

1HN, 

1HJ, 

mS,lHH,lHO, 

me. 

IHP, 

mo. 

1HW, 

1HE, 

1HN, 

mo. 

1HE, 

me. 

IHP, 1HE, 1HR, 

mr. 

1HS, 

mr. 

1HI, 

1HF, 

1HC, 

1HE, 

1HN, 

1HT, 

1HH, 1HA,1HR, 

1HD, 

1HF, 

1HI, 

1HN, 

1HI, 

1HL, 

3 

1HA, 

1HR, 

ms, 

lHF,mO,lHL, 

1HL, 

1HW, 

1HK, 

1HS, 

1HL/ 

/1HH, 

1HO, 

1HU, 

1HR, 

1HM, HO, 1HN, 

im/ 






PARAMETER DATA OPTIONS 


*ELEM MAXIMUM NUMBER AND THE TYPE OF ELEMENT 
*N0DE MAXIMUM NUMBER OF NODES 
*BOUN MAXIMUM NUMBER OF DISPLACEMENT CONSTRAINT 
*TYIN FLAG THE TYING OPTION WITH NUMBER OF TYING 
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c 


c 

5 

*TRAN 

c 



c 

6 

*FORC 

c 

7 

*POST 

c 



c 

8 

*SUBS 

c 



c 

9 

*EXTE 

c 

10 

*PRES 

c 

11 

♦TEMP 

c 

12 

*PRIN 

c 

13 

*REST 

c 

14 

*LOUB 

c 

15 

*STRE 

c 

16 

♦END 

c 

17 

★test 

c 

18 

♦DYNA 

c 

19 

*OPTI 

c 

20 

♦TRAC 

c 

21 

♦CREE 

c 

22 

♦ANIS 

c 

23 

♦M3DA 

c 

24 

♦BUCK 

c 

25 

♦THER 

c 

26 

♦CONS 

c 

27 

♦DIST 

c 

28 

♦DUPL 

c 

29 

♦REPO 

c 

30 

♦TANG 

c 

31 

♦UIHE 

c 

32 

♦SCHE 

c 

33 

♦UPOR 

c 

34 

♦UTEM 

c 

35 

♦UCOE 

c 

36 

♦UPRE 

c 

37 

♦UHOO 

c 

38 

♦UDER 

c 

39 

♦UBOU 

c 

40 

♦PERI 

c 

41 

♦BAND 

c 

42 

♦FRON 

c 

43 

♦DEFO 

c 

44 

♦EMBE 

c 

45 

* Q4RS 


DEGREE OF FREEDOMS 

COORDINATE TRANSFORMATION OPTION FT Arran WITH 
THE NUMBER OF POINTS SUBJECTED TO THIS OPER. 
MAXIMUM NUMBER OF NODAL FORCE DATA 
FLAG THE POST PROCCESSING TAPE GENERATION 
OPTION 

FLAG THE SUBSTRUCTURING OPTION WITH THE NUNBER 
OF SUBSTRUCTURES 

FLAG THE NODAL PRESSURE DEFINITION OPTION 

FLAG FOR THERMAL LOADING 

FLAG FOR PRINT OUTPUT 

FLAG FOR RESTART RUN 

SET UP NUMERICAL INTEGRATION 

FLAG FOR STRESS BOUNDARY CONDITIONS 

OBVIOUS 

(RESERVED) 

INVOKE TRANSIENT TIME INTEGRATION 

FLAG THE BAND-WIDTH OPTIMIZATION 

FLAG THE DISTRIBUTED LOADING 

FLAG THE CREEP STRAIN OPTION 

FLAG ANISOTROPY OPTION 

MODAL ANALYSIS OPTION 

BUCKLING ANALYSIS OPTION 

TEMPERATURE DEPENDENT ELASTICITY OPTION 

CONSTITUTIVE EQUATION SELECTION 

FLAG FOR DISTRIBUTED LOAD 

DUPLICATED NODE OPTION 

REPORT GENERATION INTERVAL 

MODIFIED NEWTON OPTION 

USER SUBROUTINE 'UIHERM' OPTION 

TIME INTEGRATION SCHEME OPTION 

USER SUBROUTINE 'UPORCE' OPTION 

USER SUBROUTINE 'UTEMP' OPTION 

USER SUBROUTINE 'UCQEF' OPTION 

USER SUBROUTINE 'UPRESS' OPTION 

USER SUBROUTINE 'UHOQK' OPTION 

USER SUBROUTINE 'UDERIV' OPTION 

USER SUBROUTINE 'UBOUN' OPTION 

PERIODIC LOADING CONDITION OPTION FOR THE 

BAND SOLVER ( DEFAULT) 

FRONTAL SOLUTION SUBSYTEM ( OPTIONAL ) 
EIGENVALUE EXTRACTION FOR THE STIFF NESS 
SUBELEMENT MESH ANALYSIS OPTION 
MULTIPLE GENERIC MODELLING REGIONS OPTION 
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c 

46 


♦BEAM BEAM SECTION PARAMETER OPTION 

c 

47 


*DISP CONVENTIONAL DISPLACEMENT METHOD 

c 

48 


*SHIF POWER SHIFT FOR EIOEN EXTRACTION 

c 

49 


♦EFGS BFGS UPDATE FOR THE NNQNLINEAR SOLUTION 

c 

50 


*SPRI ADDED STIFFNESS, GROUND SPRING 

c 

51 


*DASH ADDED DAMPING, DASHPOT TO GROUND 

c 

52 


♦MASS AIDED MASS 

c 

53 


♦SCEN SECANT NEWTON METHOD 

c 

54 


♦LINE LINE SEARCH 

c 

55 


♦HARM HARMONIC NODAL FORCE LOADING 

c 

56 


♦BASE HARMONIC BASE EXCITATION 

c 

57 


♦COMP COMPOSITE LAMINATE OPTION FOR ELEMENT 75 

c 

58 


♦PULS PULSE LOAD OPTION 

c 

59 


♦CONJ CONJUGATE GRADIENT ITERATION 

c 

60 


♦SHOC SHOCK SPECTRA OPTION 

c 

61 


♦SHIF POWER SPECTRAL DENSITY OPTION 

c 

62 


♦NOEC SUPRESS THE MODAL DATA ECHO PRINT 

c 

63 


♦PERT SET UP PERTURBATION SIZE FLAGS 

c 

64 


♦STIF STRESS STIFFENING OPTION 

c 

65 


♦CENT CENTRIFUGAL MASS STIFFNESS OPTION 

c 

66 


♦HARD WORK-HARDENING OPTION FOR PLASTICITY 

c 

67 


♦FINE FINITE STRAIN OPTION 

c 

68 


*LARG LARGE DISPLACEMENTS & ROTATIONS OPTION 

c 

69 


♦FOLL FOLLOWER FORCES OPTION 

c 

70 


♦WKSL USER SUBROUTINE 'WKSLP' 

c 

71 


♦HOUR (GLASS CONTROL) AS THE NAME INDICATES 

c 

f* 

72 


♦MONI INVOKES MONITOR UTILITY 

c 

c 

********************************************************************** 



NOPT 

= 72 



JSUBRE 

= 0 



LOECHD 

= 0 



IFPRNT 

= 0 


********************************************************************** 
SET DEFAULT VALUES 

********************************************************************** 


NSHIFT = 0 

JPOST = 0 

NSPRI = 0 

NDASH = 0 

NMASS = 0 

NHARM = 0 
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NBASE = 0 

NTIE = 0 

NDUP = 0 

JEMBED = 0 

ITHERM = 0 

NCREEP = 1 

JEMBED = 0 

JDISP = 0 

JHRGLS = 0 

JWKSLP = 0 

JISTRN = 0 

JCITER = 0 

JREPOT = 1 

ISTAT = 1 

NSBFGS = 0 

IDYNM = 0 

NGMRS = 1 

IPCQNJ = 0 

JSUB = 0 

NSUB = 0 

JFRCNT = 0 

JREST = 0 

JCREEP = 0 

JTEMP = 0 

NEXT = 0 

JUBOUN = 0 

NCNISO = 0 

IFEFGS = 0 

IFSCOT = 0 

IFLINE = 0 

NDYNMD = 0 


IDYNMD = 100000 


NPOSMD = 0 

JTHERM = 0 

JCONST = 2 

JDYN = 0 

JEIGEN = 0 

JDEFOR = 0 

NBSECT = 0 

JFORCE = 0 

JPERQD(l) = 0 

JPEROD(2) = 0 

JUTEMP = 0 

JUCOEF = 0 

JOISTS = 0 
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JUHDGK 

= 

0 

JDERXV 

= 

0 

JDIST 

= 

0 

JOPTIM 

= 

0 

JPEROD(l) 

= 

0 

JPEROD(2) 

= 

0 

ICCMPS 

= 

0 

NPDPTS 

= 

0 

NPULSE 

= 

0 

NSSPTS 

= 

0 

NSHOCK 

= 

0 

NPSPTS 

= 

0 

NFDPTS 

= 

0 

JFDSXX 

= 

0 

JISTIF 


999999 

JCENIM 

= 

999999 

JFINIT 

= 

999999 

JLARGE 

= 

999999 

JFQL0W 

= 

999999 


********************************************************************** 

READ TITLE CARD AND PRINT THE USUAL PROBLEM HEADER 
********************************************************************** 


READ(ICREAD, 1000,END=3001) TITLE 

1000 FORMAT ( 2 0A4) 

C 

CALL HEAD HOST 

1 (VERSNO,MONIH , JDATE , ILPROT, ICONSL) HOST 

CALL HEADER NESSUS 

1 (VERSNO,MDNIH , JDATE , ILPRNT, ICONSL, 2 ) NESSUS 

CALL LINES (70,0) 

WRITE (ILPRNT, 1001) TITLE 

1001 FORMAT( 10X, 20A4 ) 

NEW = .TRUE. 


1C********************************************************************* 

READ TOE PARAMETER DATA CARDS IN THE INPUT DECK 
********************************************************************** 

998 CONTINUE 


*** KEY-WORD INTERPRETER ********************************************* 
CALL KEY( NAME , NOPT , IOPT , NN , 6 , IERR ) 
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GO TO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21, 

& 22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40, 

& 41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59, 

& 60,61,62,63,64,65,66,67,68,69,70,71,72), IOPT 

C 

C ********************************************************************** 
C OPTION 1 : *ELEM - MAXIMUM NUMBER OF ELEMENTS IN MODEL 
C ********************************************************************** 
C 

1 CONTINUE 

NET JIM = NN( 1) 

CALL TYPEIN 

1 ( IWORK ,KW3RK , IERR ,NTYPE , ILAST , ILPRNT,NDIMEN) 

GO TO 998 
C 

c ************************************,********************************* 

C OPTION 2 : *NODE - MAXIMUM NUMBER OF NCDES IN MX)EL 
0 ********************************************************************** 
C 

2 CONTINUE 

NNODE = NN( 1 ) 

GO TO 998 

C 

C ********************************************************************** 
C OPTION 3 : *BOUN - MAXIMUM NUMBER OF BOUNDARY CONDITIONS 

C ********************************************************************** 

C 

3 CONTINUE 

NBC = NN( 1) 

GO TO 998 
C 

0 ********************************************************************** 
C OPTION 4 ; *TYTN - MAXIMUM NUMBER OF TYING CONSTRAINT 
0 ********************************************************************** 
C 

4 CONTINUE 
NTIE = NN( 1) 

NMAX = NN(2) 

GO TO 998 

C 

0 ********************************************************************** 
C OPTION 5 s *TRAN - NUMBER OF NODAL COORDINATE TRANSFORMATIONS 
0 ********************************************************************** 
C 
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5 CONTINUE 
NTRAN = NN( 1) 

00 TO 998 

********************************************************************** 
OPTION 6 : *F0RC - MAXIMUM NUMBER OF NODAL FORCE ENTRIES 

********************************************************************** 


6 CONTINUE 
NTFtAC = NN( 1) 

GO TO 998 

********************************************************************** 
OPTION 7 : *P0ST - POST PROCESSING 

********************************************************************** 

7 CONTINUE 
JPOST = 1 
NPOST = 1 

IF (NN(l).GT.O) NPOST = NN(1) 

GO TO 998 

********************************************************************** 
OPTION 8 : *SUBS - INACTIVE IN VERSION 2.0 

I********************************************************************** 

8 CONTINUE 
JSUB = NN( 1) 

NSUB » NN(2) 

IF( JSUB.NE.2) GO TO 998 

DO 108 J = 1,NSUB 

CALL FREFOR(NN,NN, 3,0,0, IERR,JKEY) 

NLVSUB ( NN ( 1 ) ) = NN(2) 

NFRSUB(NN( 1) ) = NN(3) 

108 CONTINUE 
GO TO 998 

********************************************************************** 

OPTION 9 : *NEXT - EXTRNAL D.O.F. INACTIVE IN VERSION 2.0 
★★*****★★★★*★****★★****★★******★★*★*****★★★★★★★**★*★**★***★★★★*★★***** 

9 CONTINUE 
NEXT = NN( 1) 


SYSTEMS' MANUAL 


Page : 117 


MHOST Version 4 . 2 
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C 

q ********************************************************************** 
C OPTION 10 : *PRES - NODAL PRESSURE DEFINITION 

C ********************************************************************** 
C 

10 CONTINUE 
JPRES = 1 
GO TO 998 

C 

C ********************************************************************** 
C OPTION 11 : *TEMP - TEMPERATURE LOAD FLAG TO BE SET 
C ********************************************************************** 
C 

11 CONTINUE 
JTEMP = 1 
GO TO 998 

C 

C ********************************************************************** 

C OPTION 12 : *PRIN - INCREASE THE NUMBER OF PRINT OPTIONS 
C ********************************************************************** 
C 

12 CONTINUE 

IF (NN(l).LT.O) IFPRNT = 1 
IF (NN(l).LT.O) NPRINT = IABS(NN(1)) 

IF (NN(l).GT.O) NPRINT = NN(1) 

GO TO 998 
C 

c ********************************************************************** 

C OPTION 13 : *REST - RESTART TAPE FLAG TO BE SET 
C ********************************************************************** 
C 

13 CONTINUE 
JREST = 1 

C+ JINC = NN( 1) 

C+ NINC = NN(2) 

C 

c *** EXIT IMMEDIATELY WITHOUT READING *END CARD *********************** 
C 


C 

C 

C 

C 

c 


GO TO 16 


********************************************************************** 
OPTION 14 : *LOUB - SELECTORS FOR THE NUMERICAL QUADRATURES 


!:*****★ 
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14 CONTINUE 
JLOUB = 1 
JINTER = NN( 1 ) 

JEXTRA = NN(2) 

JWEIGH = NN( 3) 

J®AM = NN(4) 

IF( JINTER. LT.l. OR. JINTER. GT. 4) JINTER 
IF(JEXTRA.LT.1.0R.JEXTRA.GT.3) JEXTRA 
IF( JWEIGH. LT. 1. OR. JWEIGH. GT. 5) JWEICH 
IF( JGRAM .LT.O.OR.JC33AM .GT.l) JGRAM 


2 

1 

1 

0 


SPECIAL TRICKS FOR INITIAL STRAIN AND CONSISTENT MASS ITERATION — 


IF( NN( 6 ) .NE. 0 ) JISTRN = 1 
IF( NN( 5 ) .NE. 0 ) JCITER = NN( 5 ) 

GO TO 998 

I************************************************************** ******** 

OPTION 15 : *STRE - MAXIMUM NUMBER OF STRESS BOUNDARY CONDITIONS 
********************************************************************** 

15 CONTINUE 

NSTRBC = NN( 1) 

GO TO 998 

********************************************************************** 
OPTION 17 : *TEST FOR THE INTERNAL USE AT MARC DEVELOPMENT 

C3ROUP OILY - TO INVOKE THIS IS POTENTIALLY 
DANGEROUS 

********************************************************************** 

17 CONTINUE 

ISTAT = 0 

IDYNM = 0 

ITEST = 1 

GO TO 998 

********************************************************************** 
OPTION 18 : *DYNA - TRANSIENT TIME INTEGRATION PARAMETER 

COULD BE SPECIFIED IN VERSION 2.0 OR UP 
*★****★★*★★★★*★★*★★*★★★*★★★★★****★****★**★★★***★★**★★*★******★***★★**★ 

18 CONTINUE 

JDYN = NN( 1 ) 

IF( JDYN .LE. 0) JDYN = 1 
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IF( JDYN .GT. 2) JDYN = 2 
ISTAT = 0 

IDYNM = 1 

ITEST = 0 

GO TO 998 
C 

C ********************************************************************** 
C OPTION 19 : *OPTI - RANDWIDIH OPTIMIZER ITERATION CY CLES 
C ********************************************************************** 
C 

19 CONTINUE 
JOPTIM = NN( 1) 

IF( JOPTIM.EQ.O) JOPTIM=10 
GOTO 998 
C 

C ********************************************************************** 
C OPTION 20 : *TRAC - DUMMY - SAME AS OPTION 10 

C ********************************************************************** 
C 

20 CONTINUE 
JDIST = 1 
GO TO 998 

C 

C ********************************************************************** 

C OPTION 21 : *CREE - CREEP AND ITS TIME STEP CONTROL PARAMETERS 
C ********************************************************************** 
C 

21 CONTINUE 
JCREEP = 1 
NCREEP = 3 
ATQLER = 0.5D0 
BTOLER = 0.5D-1 
CTOLER = 0.5D-1 

C 

IF( NN( 1 ) .EQ. 0 ) GO TO 2101 
C 

NCREEP = NN( 1 ) 

C 

CALL FREFOR 

1 ( IW3RK( ILAST+1) , RWORK(ILAST+l) ,0,3,0, IERR , JKEY ) 

C 

J = HAST + 1 

IF( RWORK( J) .NE. 0.0 ) CALL COPYSD ( RWORK(J) , ATOr.FR 1 ) 

J = HAST + 2 

IF( RWDRK(J) .NE. 0.0 ) CALL COPYSD ( RWORK(J) , BTOLER , 1 ) 
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J = HAST + 3 

IF( KWORK(J) .NE. 0.0 ) CALL COFYSD ( RWORK(J) , CTQLER , 1 ) 

i 

2101 CONTINUE 
GO TO 998 

********************************************************************** 

OPTION 21 : *ANIS - ANISOTROPIC ELASTICITY 
********************************************************************** 


CONTINUE 
NCNISO=l 
GO TO 998 


********************************************************************** 

OPTION 23 : *M0DAL - MODAL ANALYSIS OPTION AND PARAMETER SET 
******************************* **************************** *********** 


NDYNMD=NN( 1 ) 
NSBNC =NN(2) 
INTSTR=NN(3) 


IF 

( 

NDYNMD .EQ. 0 

) 

NDYNMD = 1 


IF 

( 

NSBNC .EQ. 0 

) 

NSBNC = NDYNMD * 

2 





MDYNMD = NDYNMD + 

8 

IF 

( 

NSBNC .CT. MDYNMD) 

NSBNC = MDYNMD 



JEIGEN = 1 
LDYN = 1 
IDYNM = 1 
ISTAT = 0 

CALL NUUNT(NN,4) 

JKEY = 0 

CALL FREFOR(NN,NN, 1,0,0,IERR, JKEY) 
IF ( JKEY .EQ. 1 ) GO TO 998 
NSUPER = NN( 1) 


LDYN = 2 

GO TO 998 

********************************************************************** 

OPTION 24 : *BUCK - BUCKLING ANALYSIS AND PARAMETERS 
********************************************************************** 


24 NDYNMD = NN(1) 
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NSBNC = NN( 2 ) 
INTSTR = NN(3) 

IF( NDYNMD .EQ. 0 ) 
IF( NSBNC .EQ. 0 ) 


NDYNMD = 1 
NSBNC = 2 * NDYNMD 
MSENC = 8 + NDYNMD 
NSBNC = MIN0( NSBNC, MSBNC ) 


ISTAT = 1 
IDYNM = 0 
JEIGEN = 1 


GO TO 998 


OPTION 25 : *THER - TEMPERATURE DEPENDENT PROPERTIES 

25 CONTINUE 
ITHERM = 1 
00 TO 998 


OPTION 25 : *CCNS - CONSTITUTIVE LAW SELECTION 

26 CONTINUE 

JCGNST = NN( 1) 

IF ( JCQNST . LT . 0 . OR . JCGNST . GT . 4 ) JCONST = 2 
00 TO 998 

OPTION 27 : *DIST - DISTRIBUTED LOAD ( SAME AS *TRAC AND *PRES ) 

27 CONTINUE 
JDIST=1 
GOTO 998 

OPTION 28 : *DUPL - MAXIMUM NUMBER OF DUPLICATED NODES 
********************************************************************** 

28 CONTINUE 
NDUP=NN( 1) 

GOTO 998 
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********************************************************************** 
OPTION 29 : *REPO - REPORT GENERATION INTERVAL TO BE SET 

29 CONTINUE 
JREPOT = NN( 1 ) 

IF(NN( 1 ) .EQ. 0) JREPCT=1 
GO TO 998 

********************************************************************** 
OPTION 30 : *TANG - MODIFIED NEWTON METHOD WITH TANGENT MATRIX 

SPECIFICATION 

********************************************************************** 

30 CONTINUE 
JEANGE = NN( 1 ) 

GO TO 998 

31 CONTINUE 
JTHERM = 1 
GO TO 998 

********************************************************************** 

OPTION 32 : *SCHE - TIME STEPPING SCHEME PARAMETER OPTION 
********************************************************************** 

32 CONTINUE 
DALPHA = 0.5D0 
DBETA = 0.25D0 
DGAMMA = 0.5D0 

CALL FREFOR(IWORK(ILAST+1) ,RWDRK(ILAST+1) , 0,3,0, IERR,JKEY) 

CALL COPYSD (RWDRK( ILAST+1) , DALPHA, 1) 

CALL COPYSD ( RW3RK ( LLAST+2 ) , DBETA ,1) 

CALL COPYSD (RWORK(ILAST+3) , DGAMMA, 1) 

GO TO 998 

********************************************************************** 

OPTIONS 33, 34, 35, 36, 37, 38, 39 - FLAGS FOR USER SUBROUTINES 
★★★a****************************************************************** 

33 CONTINUE 
JFORCE = 1 
GO TO 998 

C 

34 CONTINUE 
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JUTEMP = 1 
00 TO 998 

C 

35 CONTINUE 
JUCOEF = 1 
00 TO 998 

C 

36 CONTINUE 
JDISTS = 1 
00 TO 998 

C 

37 CONTINUE 
JUHOCK = 1 
GO TO 998 

C 

38 CONTINUE 
JDERIV = 1 
00 TO 998 

C 

39 CONTINUE 
JUBOUN = 1 
GO TO 998 

********************************************************************** 
OPTION 40 : *PERI - PERIODIC LOADING APPLICABLE ONLY FOR TRANSIENT 

DYNAMICS 

**************************************** ****************************** 

40 CONTINUE 
JPERQD( 1 ) = NN( 1 ) 

JPERQD( 2 ) = NN( 2 ) 

00 TO 998 

******************************************************* !(rlltl(flk11r ^ ri(r ^ lk . lk ,^^^^^ 
OPTION 41 : *RAND - BAND MATRIX SOLVER ( DEFAULT ) 

★ ★♦★★A*****************************************************^^*^^^ 

41 CONTINUE 

JBAND = 1 
JFRQNT = 0 

GO TO 998 

C 

C ********************************************************************** 

C OPTION 42 : *FRON - FRNTAL SOLUTION 

C ********************************************************************** 
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c 

42 CONTINUE 

JBAND = 0 
JFRONT = 1 

00 TO 998 

********************************************************************** 
OPTION 43 : *DEF0 - EIGENVALUE EXTRACTION FOR THE STIFFNESS 

MATRIX FLAGGED 

********************************************************************** 


43 CONTINUE 

JDEFOR = 1 
IDYNMD = NN( 1 ) 
NDYNMD = NN( 2 ) 
NSBNC = NN( 3 ) 
INTSTR = NN( 4 ) 


IF 

( 

NDYNMD .EQ. 0 

) NDYNMD 

= 1 




NSBNC 

= 2 * NDYNMD 




MSENC 

= 8 + NDYNMD 

IF 

( 

NDYNMD .GT. 8 

) NSBNC 

= MSENC 


ISTAT = 1 
IDYNM = 0 
JEIGEN = 1 

GO TO 998 

********************************************************************** 

OPTION 44 : *EMBE - EMBEDDED MULTIPLE SINGULARITIES 
********************************************************************** 


44 CONTINUE 

IF( NN( 1 ) .NE. 0 ) 
GO TO 998 


JEMBED 

JSUBRE 


1 

1 


********************************************************************** 

OPTION 45 : *(3^RS - MAXIMUM NUMBER OF MULTIPLE GENERIC REGIONS 
********************************************************************** 


45 CONTINUE 


NQ4RS = NN( 1 ) 
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IF( NGMRS .EQ. 0 ) NGMRS = 1 

GO TO 998 


********************************************************************** 
OPTION 46 : *BEAM - MAXIMUM NUMBER OF BEAM SECTION DATA 
******************** ************************************************** 


46 CONTINUE 
NBSECT = NNODE 
GO TO 998 

♦★♦♦♦a**************************************************************^ 
OPTION 47 : *DISP - DISPLACEMENT METHOD OPTION 

****************************** ***********ic*******************iriHfic***** 

47 CONTINUE 

JDISP = 1 

GO TO 998 


*************************************************************** i m [ *. Jt ^ 

OPTION 48 : *PCWE - POWER SHIFT FOR EIGEN ANALYSIS 


48 CONTINUE 

NSHIFT = NN( 1 ) 

IF( NSHIFT .EQ. 0 ) NSHIFT = 1 

GO TO 998 


*************************************** ******************************* 
OPTION 49 : *BFGS - BFGS UPDATE FOR QUASI-STATIC NONLINEAR 

ANALYSIS 


49 CONTINUE 

IFBFGS = 1 

NSBFGS = 10 

IF( NN( 1) .NE. 0 ) NSBFGS = NN( 1 ) 
GO TO 998 


************************************ *****ir***ificiHrit******************ir 

OPTION 50 : *SPRI - ADDED STIFFNESS, GROUND SPRING 

*+****************************************i'+i C i,i'i'+i'i rie i' i 'i' i 'i Ci ' i 'i' i , i , i ' i ' iti ' i ' iri ' 


50 CONTINUE 


NSPRI = NN( 1) 
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IF ( NSPRI .EQ. 0 ) NSPRI = 1 

GO TO 998 
C 

C ********************************************************************* 
C OPTION 51 : *DASH - ADDED DAMPING, DASHPOT TO GROUND 
C ********************************************************************* 
C 

51 CONTINUE 

NDASH = NN( 1) 

IF ( NDASH .EQ. 0 ) NDASH = 1 

GO TO 998 
C 

C ********************************************************************* 

C OPTION 52 : *MASS - ADDED MASS 

C ********************************************************************* 

C 

52 CONTINUE 

NMASS = NN( 1) 

IF ( NMASS .EQ. 0 ) NMASS = 1 

GO TO 998 
C 

C ********************************************************************** 
C OPTION 53 : *SECA - SECANT NEWTON METHOD OPTION 

C ********************************************************************** 
C 

53 CONTINUE 

IFSCNT = 1 

GO TO 998 
C 

q ********************************************************************** 
C OPTION 54 : *LINE - LINE SEARCH OPTION 
0 ********************************************************************** 
C 

54 CONTINUE 

IFLINE = 1 

GO TO 998 
C 

0 ********************************************************************** 
C OPTION 55 : *HARM - HARMONIC NODAL FORCE LOADING 
0 ********************************************************************** 
C 

55 CONTINUE 
NHARM = NN( 1) 

IF (NHARM .EQ. 0) NHARM = 1 

CALL FREFOR( IW3RK( ILAST+1 ) ,RWORK(ILAST+l) ,0, 1, 0, IERR, JKEY) 


SYSTEMS' MANUAL MHOST Version 4.2 

Page : 127 



ooooo nnonnn n nooon nnnnn 


CALL COPYSD ( RW3RK ( ILAST+1 ) ,CMEGH,1) 

GO TO 998 

********************************************************************** 
OPTION 56 : *BASE - HARMONIC BASE EXCITATION 
********************************************************************** 

56 CONTINUE 
NBASE = NN( 1) 

IF (NBASE .EQ. 0) NBASE = 1 

CALL FREPOR(IWORK( ILAST+1) ,RW0RK( ILAST+1) ,0,1,0, IERR,JKEY) 

CALL COPYSD (RWORK( ILAST+1) ,QMEGB, 1) 

GO TO 998 

********************************************************************** 
OPTION 57 : COMPOSITE LAMINATE OPTION 

57 CONTINUE 

ICQMPS = 1 

CALL CGMPDF 

1 (IWORK , RWORK , IERR ,NTYPE , ILAST , ILPRNT) 

GO TO 998 


********************************************************************** 
OPTION 58 : *PULS - PULSE LOAD OPTION 

58 CONTINUE 
NPDPTS = NN( 1) 

NPULSE = NN( 2 ) 

IF (NPDPTS .LT. 2) NPDPTS = 2 
IF (NPULSE .EQ. 0) NPULSE = 1 
GO TO 998 

********************************************************************** 
OPTION 59 : PRECONDITIONED CONJUGATE GRADIENT ITERATION OPTION 
********************************************************************** 

59 CONTINUE 

IPCCNJ = 1 

IFLINE = 1 

GO TO 998 
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********************************************************************** 

OPTION 60 : *SH0C - SHOCK SPECTRA OPTION (INACTIVE) 
★★★★★★a*************************************************************** 

60 CONTINUE 

CALL LINES (1,1) 

WRITE (ILPENT, 6000) 61,'SHOC' 

WRITE(ICQNSL,6000) 61,'SHOC' 

IERR = IERR+1 
NSSPTS = NN( 1) 

IF ( NSSPTS .EQ. 0 ) NSSPTS = 10 
LDYN = 3 
GO TO 998 

********************************************************************** 

OPTION 61 : *POWE - PCWER SPECTRAL DENSITY OPTION 
********************************************************************** 


61 CONTINUE 

NPSPTS = NN( 1) 

NFDPTS = NN(2) 

JFDSXX = NN(3) 

IF ( NPSPTS .EQ. 0 ) NPSPTS = 10 
IF ( NFDPTS .EQ. 0 ) NFDPTS = 10 
LDYN = 4 
GO TO 998 


62 CONTINUE 

LOECHO = 1 

GO TO 998 

********************************************************************** 
OPTION 63 : *PERT - SET UP PERTURBATION FLAGS 
********************************************************************** 


CONTINUE 


CALL LINES( 1, 1) 

HOST 

WRITE (ILPRNT, 6000) 63, 'PERT' 

HOST 

WRITE (ICONSL, 6000) 63, 'PERT' 

HOST 

IERR = IERR+1 

HOST 

CALL PERSIZ ( NN( 1) , IERR ) 
GO TO 998 

NESSUS 
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************ ************* ******************************** ★**★******★★ 

OPTION 64 : *STIF - STRESS STIFFENING OPTION 
********************************************************************* 

64 CONTINUE 
JISTIF = NN( 1) 

IF( NN(l).EQ.O ) JISTIF = 1 
GO TO 998 

********************************************************************* 

OPTION 65 : *CENT - CENTRIFUGAL MASS STIFFNESS OPTION 
********************************************************************* 

65 CONTINUE 
JCENTM = NN( 1) 

GO TO 998 

********************************************************************** 
OPTION 66 : *HARD - WORK-HARDENING OPTION FOR PLASTICITY 
********************************************************************** 

66 CONTINUE 
NHARD = NN( 1) 

IF (NN( 1) .EQ. 0) NHARD = 1 
GO TO 998 

********************************************************************** 
OPTION 67 : *FINIT - FINITE STRAIN OPTION 
*********************************************************************** 

67 CONTINUE 
JFINIT = NN( 1) 

GO TO 998 

*********************************************************************** 
OPTION 68 : *LARG - LARGE DISPLACEMENTS AND ROTATIONS OPTION 
**************************** ******************************************* 

68 CONTINUE 
JLARGE = NN( 1) 

GO TO 998 

C *********************************************************************** 
C OPTION 69 s *PGLL - FOLLOWER FORCE OPTIC*! 
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*********************************************************************** 


69 CONTINUE 
JFQDCW = NN( 1 ) 

GO TO 998 

***** ************ ***** ************ ************************************ 

OPTION 70 : *WLSKP : FLAGS THE USER SUBROUTINE FOR WORKHARDENING 
********************************************************************** 

70 CONTINUE 
JWKSLP = 1 
GO TO 998 

********************************************************************** 
OPTION 71 : *HOUR . . . HOURGLASS CONTROL FLAG IN A SPECIAL WAY 
********************************************************************** 


71 CONTINUE 
JHRGLS = 1 

GO TO 998 

********************************************************************** 
OPTION 72 : *M3NI - TURN ON TEE MONITOR UTILITY 
********************************************************************** 


72 CONTINUE 

NMDNIT = NN( 1) 

IF (NM3NIT .LT. 1) NMONIT = 1 
GO TO 998 


*** NORMAL EXIT BY READING '*END' CARD ******************************* 


16 CONTINUE 

IF ( LOECBO .NE. 0 ) NOECHO = 1 

*** A FEW POSSIBLE CONTRADICTIONS IN PARAMETER DATA ARE CHECKED HERE 

IF( IFBPGS .EQ. 1 .AND. IFSCNT .EQ. 1 ) CALL QUIT 
1 ( 'CGNT', 'RADI', 'CTIO', 'N DE', 'TECT', 'ED ' , 1 ) 

C 

IF( IFBPGS .EQ. 1 .AND. IPCCNJ .EQ. 1 ) CALL QUIT 
1 ( 'CONT', 'RADI', 'CTIO' , 'N DE', 'TECT' , 'ED ', 1 ) 

C 

IF( IPCONJ .EQ. 1 .AND. IFSCNT .EQ. 1 ) CALL QUIT 
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( 'OQNT' , 'RADI ' , 'CTIO' , 'N DE' , 'TECT' , 'ED ', 1 ) 


C 


C 


C 


IF( JFINIT.LT. JLARGE ) CALL QUIT 

& ('*FIN','I ST', 'ARTS',' B4 ' , '*LAR' , 'GE ', 0 ) 


IF( JLARQE.EQ. 999999 ) 

IF( JFCfLCW.NE. 999999 
& ('*FQL','L BU','T NO' , ' *LAR' , 'G 

IF( JFINIT.NE. 999999 ) 

& ('*FIN','I BU','T NO','*LAR','G 


THEN 
) CALL QUIT 

V 0 ) 

CALL QUIT 

V 0 ) 

E N D I F 


IF( JLARCH.NE. 999999 .AND. JISTIF.EQ. 999999 ) CALL PRWARN 
& ( 'LARCH DISPL OPTION WITHOUT INITIAL STRESS OPTION') 


RETURN 

C 

C *** CONTROL DATA ERROR *********************************************** 
C 

3001 CONTINUE 

WRITE ( IOQNSL, 9000 ) 

CALL QUIT ( 'INPU', 'T ',' ',' ' 1 ) 

C 

C *** FORMAT STATElMEINrS ************************************************ 

c 

6000 P0RMAT(/,1X,23H***ERR0R*** OPTION ,I2,3H *,A4,11H NOT ACTIVE) 
9000 PORMAT(//,28H ********** ERROR ********** f / 1 14 H no INPUT FILE,//) 

C 

STOP 

END 


An example of a typical bulk data reader is the subprogram to read and 
store the nodal coordinates: 

C=SUBROUTINE=COORIN CALLED BY SUBROUTINE 'DATIN2 ' 

SUBROUTINE COORIN 

1 (INT ,REA ,IERR ,NCRD ,ILAST , LLPRNT, NNCDE , INX) , 

2 MAXCRD, ICHECK) 

C 

q ********************************************************************** 

c 

C READ IN COORDINATE DATA 

C 

C IERR ERROR FLAG 

C NCRD NUMBER OF COORDINATES PER NODE 
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C ILAST LAST WORD FOR INPUT 

C KW OUTPUT DEVICE 

C NNODE NUMBER OF NODES IN MESH 

C INOD POINTER TO COORDINATES 

C MAXCRD MAXIMUM NUMBER OF COORDINATES PER NODE 

C ICHECK ENABLE/DISABLE NODAL THICKNESS CHECK 

C 

C ********************************************************************** 

c 

IMPLICIT REAL* 8 (A-H,0-Z) 

REAL*4 REA 
C 

c ********************************************************************** 
c 

COMMON / MACHIN / IDP 
C 

c ********************************************************************** 
c 

DIMENSION INT( 1 ) , REA( 1 ) 

C 

c ********************************************************************** 
c 

IS1 = INOD - MAXCRD* IDP 
JKEY = -1 
C 

C *** CHECK IF THE CORE IS ALLOCATED FOR THE COORDINATE DATA *********** 
C 

IF ( NNODE .GT. 0 ) GO TO 208 
C 

CALL LINES ( 1,1) 

WRITE (ILPRNT, 9108) 

9108 PORMAT(2X,48H***ERROR*** NO SPACE RESERVED FOR COORDINATE, 

1 5H DATA) 

IERR = IERR + 1 
C 

C *** CHECK THE NUMBER OF DATA ENTRIES ********************************* 
C 

208 CONTINUE 

IF ( NCRD .EQ. 0 ) NCRD = MAXCRD 
C 

C *** MCRD: COUNTER OF THE NUMBER OF ACTUAL COORDINATE DATA ENTRIES **** 
C 

M2RD = NCRD 

IF ( MAXCRD .EQ. 7 ) MORD = 3 
C 
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IF ( NCRD .LE. MAXCRD ) GO TO 607 


CALL LINES ( 1,1) 

WRITE (ILPRNT, 9208) NCRD, MAXCRD 

9208 PORMAT(2X,47H***ERROR*** NUMBER OF COORDINATE DIRECTIONS, 15, 
*13H GREATER THAN, 15) 

IERR = IERR + 1 


*** READ NUMERIC DATA LINE ******************************************* 


607 


608 CONTINUE 


ICOUNT = 0 

TNEW = 0.D0 
TOLD = 0.D0 

ICOUNT = ICOUNT + 1 


CALL NULHNT( INT( ILAST+1) ,MCRD+T) 

CALL FREFOR( INT( ILAST+1 ) ,REA( ILAST+1 ),1, NCRD, 0, IERR, JKEY) 

*** IF THE CURRENT LINE IS THE KEYWORD DATA THEN RETURN ************** 
IF ( JKEY .EQ. 1 ) GO TO 108 

********************************************************************** 
PROCESS THE NODAL COORDINATE DEFINITION DATA LINE 
********************************************************************** 

TOLD = TNEW 
K = INT( ILAST+1) 

TNEW = REA( ILAST+5) 

*** IF THICKNESS IS NOT GIVEN THE LAST NONZERO VALUE IS TAKEN ******** 
IF ( TNEW .EQ. 0.D0 ) TNEW = TOLD 

*** RANGE CHECK ****************************************************** 

IF ( K .CT. 0 .AND. K .LE. NNODE ) GO TO 308 

*** ERROR MESS AGE S *************************************************** 

CALL LINES ( 1,1) 

IF ( K .LE. 0 ) WRITE (ILPRNT, 9601) K 
9601 FORMAT ( 2X , 2 7H** *ERROR* * * NODE NUMBER, 15, 13H NON-POSITIVE) 


SYSTEMS' MANUAL 


Page : 134 


MHGST Version 4 . 2 


I 


c *** 


IF ( K .GT. NNODE ) WRITE (ILPRNT, 9701) K, NNODE 
^9701 FORMAT(2X,27H***ERROR*** NODE NUMBER, 15, 13H GREATER THAN, 15) 

IERR = IERR + 1 

308 CONTINUE 
C 

C *** THICKNESS DATA CHECK FOR S HELL ELEMENTS ************************** 
C 

IF ( MAXCRD .NE. 7 .OR. ICHECK .EQ. 0 ) GO TO 8000 
IF ( ICOUNT .NE. 1 .OR. TNEW .NE. O.DO ) GO TO 8000 
C 

C *** ERROR MESSAGE FOR THE THICKNESS NOT DEFINED ******************** 

C 

CALL LINES ( 1,1) 

WRITE (ILPRNT, 9753) 

9753 FORMAT (2X, '***ERROR*** SHELL THICKNESS NOT SPECIFIED IN THE ' , 

1 'FIRST DATA LINE') 

IERR = IERR + 1 
C 

C *** ADRESSES FOR THE CURRENT (K-TH) NODAL COORDINATES **************** 
C 

8000 CONTINUE 

152 = IS1 + K*MAXCRD*IDP 

153 = IS2 + 6 *IDP 

C 

C *** STORE THE COORDINATE DATA **************************************** 
C 

CALL COPYSD ( REA( ILAST+2 ) , REA(IS2) , MCRD ) 

IF ( MAXCRD .NE. 7 ) GO TO 408 
C 

C *** STORE THE SHELL THICKNESS DATA AT NODE *************************** 
C 

CALL COPY ( TNEW , REA(IS3) , 1 ) 

408 CONTINUE 
508 CONTINUE 
C 

C *** BACK TO THE FREE FORMAT READER AND PRO CESS THE NEXT LINE ********* 
C 

GO TO 608 
C 

C *** EXIT ************************************************************* 
C 
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108 CONTINUE 
RETURN 
END 

3 . 3 Restart File 


The restart file is designed to store all the information necessary to 
resume execution of an incremental analysis or to use the final result stored 
in the file for starting a new set of calculations. The alteration of certain 
pa rame ter data is supported by the following SUBROUTINES: SAVER to write and 
RESTRT to read the restart file: 


C . . . SUBROUTINE SAVER . . . RESTART FILE WRITER 
C 

SUBROUTINE SAVER ( RWORK, IWORK, ISIZE ) 

C 

C ********************************************************************** 
C ** ** 

C ** WRITES A BINARY FILE FOR LATER RESTART ** 

C ** ** 


C ********************************************************************** 

c 

C IWORK : INTEGER WORKSPACE 

C RWORK : REAL WORKSPACE 

C ISIZE : SIZE OF WORKSPACE 

C 

C ********************************************************************** 

C 

IMPLICIT REAL* 8 (A-H,0-Z) 

REAL*4 RWORK 
C 


C 


DIMENSION IWORK (ISIZE) , RWORK(ISIZE) 


COMMON 

/ 

ADDVAL 

/ 

COMMON 

/ 

ALGEM 

/ 

1 




2 




COMMON 

/ 

AUPOIN 

/ 

1 




COMMON 

/ 

BCOYFR 

/ 

COMMON 

/ 

BSECT 

/ 

COMMON 

/ 

CQNTRO 

/ 


1 

2 

3 


ISPRI ,KSPRI , IDASH ,KDASH ,IMASS ,KMASS 
ICREAD, ELPRNT, JLPRNT, ICQNSL, IPOSTF, ISCRAF, 
IPLOTB , IRSTRT , JCREAD , IPVARS , IPSETS , IFILEX , 
PI ,LINE ,LINE2 

CURPER,TCfTPER,ARCLEN,ATOLER,BTC(LER,CTaLER / 
JADAP ,NCREEP, SCALE 
POINTS ( 3, 2) 

IBSECT , KBSECT 

JEND , JITER , JTEMP , JPRINr,JP ,JSUB , 

JINC , JREST , JSAVE , JREDIM, JAUTO ,JPOST , 
JBACK , JOPTIM, JCREEP , JDIST ,JCCNST,JDYN , 
NCNISO, ITHERM, ITRIG , IDYNM , JREPOT, JTANGE, 
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4 

5 

6 

7 

8 
9 


CQMM3N / CQMPND 


0GMM3N 

COMMDN 

CCMMDN 

L 

OCMMDN 

CQMM3N 


/ COUNT 
/ DAMP 
/ EIGEN 

/ MDDSUP 
/ ELEMEN 


COMMDN / HARMDN 


1 

2 


COMMON 

OMEN 


/ INCCQN 
/ MAXIMA 


1 

2 

3 

4 


COMMDN / LOUBIN 
L 

COMMDN / PARAM 


1 

2 

3 

4 

5 

6 
7 


COMMDN / PERPAR 
L 

COMMDN / PERPTR 


1 

2 


COMMDN / PERDAT 


1 

2 


COMMDN 

COMMON 


/ PERIOD 
/ PQSTPN 


JTOERM, JTORCE, JUIEMP, JUCOEF, JDISTS, JUHQOK, 
JDERIV,JUBOUN,IDSTOP,INTSTR,JPLAST,JBAND , 
JFRONT, JDEPOR, JEMBED, ITEST , JDISP , IFBFGS, 
IFSCNT, IFLINE, IFPRNT,ICCMPS, IPCCNJ, JEH3U, 
IFBODY, IFGRAV, IFCENT, JDAMP ,LDYN ,ISTAT , 
JFDSXX , JISTIF , JCENM, JFINIT, JLARffi , JPQLOW, 
JWKSLP, JPRES , JCDUM2, JCDUM3 
/ NXSTAT,NXSOLV,NXINrG,NXMDDL,NXBCKL,NXSUPR, 
NXREQN,NXDUM1,NXDUM2,NXDUM3,NXDUM4 
/ LININC , LIOTOT , NOECHO 
/ DAMPF(3) 

/ IEGNVC,IGNMS , IOMEG , IMDENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED, IMDAM ,IOMEGD 
/ IMFORO , IMDISO , IMVELO , IMFOR1 , IMDIS 1 , IMVEL1 
/ IC , IEL , IDF , JLAW ,IPA!IH ,IASSEM, 
JRULE , JCART , JEL009, JEL010, JEL011, JEL012 
/ QMEGH , IHARM ,KHARM ,0MEGB ,IBASE ,KBASE , 
ICNPOR, ICMPOR, ICMRES , ICHHFN, ICEHFN, ICBEXC , 
ICCMAT 

/ FACTOR, INCFLG( 21) 

/ MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS / 
MAXLAY,MAXINT, MAXWRK,MAXNLV, NSUMAX , MAXCMP , 
MAXBSP , MAXGMR, MAXTEM, MAXEIM, MAXLWK , MAXDMT , 
MAXFRN,MAXBET,MAXVAR,MAXSET,MAXEAN,MAXORD, 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
/ JLOUB , JTOTER, JEXTRA, JWEICH, JSUBRE, JISTRN, 
JCITER, JHRGLS, JGRAM ,IOUB03,IOUB04,L0UB05 
/ NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX , 
NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 
NPRINT,NP05T ,NSBC ,NDUP ,NSIZE ,NBSECT, 
NSHIFT , NSBFGS , NOIRS ,NSPRI ,NMASS ,NDASH , 
NDYNMD,NSBNC ,NSUPER,NHARM ,NBASE ,NINC , 
NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUMCH , NDIMEN , NMDNIT, NPAR40 , NPAR4 1 , NPAR42 , 
NPAR4 3 , NPAR4 4 , NPAR4 5 , NPAR4 6 , NPAR4 7 , NPAR4 8 
/ IPTYPE( 32) ,NPTYPE,NPVARS,NPSETS, JPERT , 
NPVCCN,NPP008,NPP009,NPP010,NPP011,NPP012 
/ IMEANS , ISTOEV, IPDATA, IVTYPE , ISKIP , IREDEF, 
IDINCO , IREACO , IRESDO , IDGRP , ISTIFO , IMASSO , 
IPP013 , ICMEGO, ICMEGP, IOMEGK, IETAK ,IZETAK 
/ IXCOOR, IXCHAR, IXFORC,KXPORC, IXDIST,KXDIST, 
IXTEMP , JXTEMP , IXBEAM, IXFVEC , IXSPRI , KXSPRI , 
IXPRES , IXPREF, IXP015 , IXP016 , IPWBEG, IPWEND 
/ JPEROD( 2 ) , IPDISP, IPPORC, INDISP, INPORC 
/ IPOINT, JPOINT,KPOINr / NDATA ,PRNTBF( 6 ) 
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COMMON / POWER 

1 

2 

COMMON / PREPAR 

1 

2 

COMMON / PREPTR 

1 

2 

COMMON / PULSES 
COMMON / RESULT 
OCMMON / START1 

1 

2 

COMMON / STARK 
COMMON / STARK 

1 

COMMON / START4 

1 

2 

3 

4 

5 

6 
7 

COMMON / STARTS 

1 

2 

3 

COMMON / STARK 

1 

2 

3 

4 

5 

6 

7 

8 

COMMON / STARK 
COMMON / STARK 

1 

2 


COMMON / STARK 

1 

COMMON / SUEEm 


/ IELPHI , IELTNM, IEPSMO, ISIGMO, IHFN ,IHFC , 
IFBP ,ISPP , ISFF , ISQQ ,ICQQ , ITNM , 
IPSF , IPSD 

/ NRFPTS,NRFSDS,NRFLIN,NRFINT,NRFREA,NRFSEL, 
NRPCMP , NRFDOF , NRFS I Z , LRFEND , JRFTYP , JCOUNT , 
JCFLAG, JRFSEL, JRFDCM,NVKEPT,MORE 
/ IRFPTS , IRFINT, IRFMNR, IRFSDR, IRFSEL, IRFSET, 
IRFMNV, IRFSDV, IRFPTV, IRFVEC, IRFVAL, IRFNRM, 
IRFCOR, IRFID ,IRFWRK 
/ IPULSE , KPULSE , IPDTIM, IPDPOR 
/ MANVAR( 7 ) , JPR ,ICOMl ,NCCMP 
/ IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 
ISTRN ,ICOP , IPRINT, IPOST ,IDIST , ILEAN , 
IBPRES , IBNORM, IMONIT, IST116 f IST117 , IST118 
/ INOD , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
/ IKBC , ITI , ITR , ITRAN ,ITRAC ,IEXT , 

ISBC , ISBCR 

/ IDINC , IDIOT , IFORCE, IRESID, IWITJOD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS , I ISTRN, 
IIPSTR, IICSTR, IITSTR, IPSINO, ICSTTJO, ITSTNO, 
IISINO, IISNNO, IIPSNO, IICSNO, IITSNO, IEMAT , 
IDMTNO, IEQCST, IQMENO, IICMNO, ITOSNO, IVSWTO, 
IDYNV ,IDYNA ,IDSX1 ,IDSX2 ,IDSITR, ISWELL, 
IEQCSI , IPREF , IDSX3 , IYIELD, IDFINC, IDFIOT, 
IST443 , IST444 , IST445 , IST446 , IST447 , IST448 
/ IRL , IREAC , IES ,IAB ,IBQM ,ISRL , 

IBTLC , ISKM , ILAST , IRLB ,IDINCP, IFORIN, 

IOP ,IDAM , IMASMT, IDIAG ,IUPTRI, ICOLPT, 

IMASDI , IMASUP , IST521 , IST522 , IST523 , IST524 
/ IELV , ICOR ,ISIG , IEPS ,IWNOD ,ISNCO , 

IENOD , IETM , ICH ,IPP ,IXRL ,IXIRL , 

IXP , IXK / KPSTRN,KCSTRN,KTSTRN,KISTRS, 

KISTRN,KIPSTR,KICSTR,KITSTR,KPSTOO,KCSTNO, 
KTSINO , KISINO , KISNNO , KIPSNO , KICSNO , KITSMO , 
IMASNO,IMNOD , IEQPST , IEQPS I , KEQPST , KEQPS I , 
KEMAT ,KDMn©,KTDSNO,KITDST,IXM ,IXC , 
IVELM ,IAEm , IMASEL,KYIELD, IST647 , IST648 , 
IST649 , IST650 , IST651 , IST652 , IST653 , IST654 
/ ICON , IKBCR , ITRACR, ITRANR, IBETA , IDET 
/ KffiPS , KIGEPS , KGSIG ,KIGSIG,KGTDST, 

IGEPNO, IIGENO, IGSINO, IIGSNO, IGIUNO, 
KC5IPNO,KI(2HO,KGSIMO,KIGSNO,KGITMO 
/ KEQCSI,KICMNO,KSWLUO,K r IMPNO,K , roFNO / KDUMMY, 
KEQCST, KCMENO, KVSWIO, IST910 , IST9 11 , IST9 12 
/ ISUBEL, ISUBNP, ISUEPT,NSDATA, ISUBTY, I EMBED 
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c 

c 


COMMON 

1 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

1 

COMMON 

1 

2 

3 

COMMON 


/ SUBTYP 

/ SUBSTR 
/ SHIFT 
/ TIME 
/ TMARCH 
/ TOLER 

/ VRTDSK 


/ Z PRINT 


/ NSUCRD,NSUNFR,NSUNOD,NSUSTR,NSUCHR,NSUPR , 
NSUINT , NSULV , NSUTEM, NSUNDI , NSUSHR , NSUIDF 
/ NLVSUB( 10) ,NFRSUB( 10) 

/ ISHIFT,KSHIFT, I FREQ ,LFREQ , NOFFST, NFOUND 
/ TIMINC , TOTINC , RUNTIM 
/ DALPHA,DBETA ,DGAMMA 

/ RELERR,ABSERR,REACMX,RESIMX,DISERR,DISTOR, 
ENGTOR,ENGNRM 

/ ISETUP,MAVAIL,LENREC,NUMREC f LENBLK,NUMBLK, 
IVPAGE,NVPAGE,IVSTRT,IKRO ,ILCOL ,IPIVCO, 
IHEDER, IFRNRH, IPIVOT, IPIVRO, IPVKOL, IVEND , 
ISRECD, IERECD 

/ MAXCOL,NELCOL / LAYPRT, JTENSR 


********************************************************************** 


C ** REWIND THE RESTART FILE TO OVERWRITE WITH THE NEWEST DATA ** 
C ********************************************************************** 
C 


REWIND (IRSTRT) 

C 

C ********************************************************************** 
C ** FIRST STORE THE CONTENTS OF THE COMMON BLOCKS ** 

C ********************************************************************** 

c 


WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 
2 

WRITE (IRSTRT) 
1 

WRITE (IRSTRT) 
WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 
2 

3 

4 

5 

6 

7 

8 
9 
+ 


WRITE (IRSTRT) 
1 


ISPRI ,KSPRI , IDASH ,KDASH ,IMASS ,KMASS 
ICREAD, ILPRNT , JLPRNT, ICCNSL, IPOSTF, ISCRAF, 
IPLCTB , IRSTRT , JCREAD, IPVARS , IPSETS , IFILEX , 
PI ,LINE ,LINE2 

CURPER,TOTPER,ARCLEN / ATOL£R,BTOLER,CTQLER, 
JADAP ,NCREEP, SCALE 
POINTS ( 3, 2) 

IBSECT , KBSECT 

JEND , JITER , JTEMP ,JPRINT,JP ,JSUB , 

JINC , JREST , JSAVE , JREDIM, JAUTO ,JPOST , 
JBACK , JOPTIM, JCREEP, JDIST ,JOQNST, JDYN , 
NONISO, ITHERM, ITRIG , IDYNM , JREPOT, JTANGE, 
JTHERM, JFORCE, JUTEMP, JUCOEF, JDISTS, JUHOOK, 
JDERIV, JUBOUN,IDSTOP,INrSTR, JPLAST, JBAND , 
JFRCNT, JDEFOR, JEMBED,ITEST ,JDISP , IFBFGS, 
IFSCNT, IFLINE , IFPRNT , ICCMPS, IPCONJ, JEIGEN, 
IFBODY , IFGRAV , IFCENT, JDAMP ,LDYN ,ISTAT , 
JFDSXX , JISTIF , JCENIM, JFINIT, JLARGE , JFGDOW, 
JWKSLP, JPRES , JCDUM2 , JCDUM3 
NXSTAT , NXSOLV, NX INTG , NXMODL , NXBCKL , NXSUPR , 
NXREQN 7 NXDUM1 , NXDUM2 ,NXDUM3 ,NXDUM4 
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WRITE 

WRITE 

WRITE 

1 

WRITE 

WRITE 

1 

WRITE 

1 

2 

WRITE 

WRITE 

1 

2 

3 

4 

WRITE 

1 


WRITE 

1 

2 

3 

4 

5 

6 
7 

WRITE 

1 

WRITE 

1 

2 

WRITE 

1 

2 

WRITE 

WRITE 

WRITE 

1 

2 

WRITE 

1 

2 

WRITE 

1 

2 


(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


(IRSTRT) 


(IRSTRT) 

(IRSTRT) 

(IRSTRT) 


(IRSTRT) 


(IRSTRT) 


LININC , LINTOT , NOECHO 
DAMPF(3) 

IEGNVC,IGNMS , IQMEG , DCENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED,IMDAM ,ICMEGD 
IMFORO , IMDISO , IMVELO , IMPOR1 , IMDIS1 , IMVEL1 
IC /IEL /IDF , JLAW ,IPA3H ,IASSEM, 
JRULE ,JCART , JEL009, JEL010, JEL011, JEL012 
CMEGH ,IHARM ,KHARM ,OMEGB ,IRASE ,KBASE , 
ICNPOR, ICMPOR, ICMRES / ICHHFN, ICBHFN , ICBEXC , 
ICCMAT 

FACTOR, INCFLG( 20) 

MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS, 
MAXLAY,MAXINr,MAXWRK,MAXNLV,NSUMAX,MAXCMP/ 
MAXBSP ,MAXGMR,MAXTEM,MAXEm,MAXLWK/MAXDMr, 
MAXFRN , MAXBET , MAXVAR , MAXSET , MAXEAN , MAXORD , 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
JLOUB , JINIER, JEXTRA, JWEIGH, JSUBRE, JISTRN, 
JCITER, JHRGLS , JGRAM ,DOUB03,I£IUB04 ,IjOUB05 
NTYPE ,NELEM ,NNODE /NBC ,NTIE ,NMAX , 

NTRAN /NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRIOT/NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 

NSHIFT,NSBFGS,NGMRS ,NSPRI ,NMASS ,NDASH , 

NDYNMD,NSBNC ,NSUPER,NHARM ,NBfiSE ,NINC , 

NITER /NPSPTS/NFDPTS/NPULSE/NPDPTS/NHARD , 
NSUMZH,NPAR38 , NM3NIT , NPAR4 0 , NPAR4 1 , NPAR42 , 
NPAR43 , NPAR44 , NPAR45 ,NPAR46 ,NPAR47 , NPAR48 
IPTYPE( 32) /NPTYPE/NPVARS/NPSETS, JPERT , 

NPVCQN,NPP008,NPP009,NPP010,NPP011/NPP012 
IMEANS , ISTOEV , IPDAIA, IVTYPE , ISKIP , IREDEF, 
IDINCO , IREACO , IRESDO , IDQRP , ISTIFO , IMASSO r 
IPP013 , ICMEGO , IQMEGP, ICMEC3C, IETAK , IZETAK 
IXCOOR, IXCHAR, IXFORC,KXPORC, IXDIST/KXDIST, 
IXTEMP , JXTEMP , IXBEAM, IXFVEC , IXSPRI , KXSPRI / 
IXPRES , IXPREF, IXP015 , IXP016 , IPWBEG, IPWEND 
JPEROD( 2 ) / IPDISP, IPPORC, INDISP, INPORC 
IPOINT, JPOINr,KPOINT,NDATA ,PRNTBF( 6 ) 

IELPHI , IELTNM, IEPSMD, ISIOO, IHFN ,IHPC , 
IFBP ,ISPP , ISFF /ISQQ ,ICQQ ,ITNM , 
IP SF , IPSD 

NRFPTS /NRFSDS ,NRFLIN,NRFINT, NRFREA, NRFSEL, 
NRFCMP/NRFDOF/NRFSIZ/LRFEND/JRFTYP, JCOUNT, 
J CFLAG , JRFSEL, JRFDCM/NVKEPT/MORE 
IRFPTS , IRFINT, IRFMNR, IRFSDR, IRFSEL, IRFSET, 
IRFMNV, IRFSDV, IRFPTV, IRFVEC, IRFVAL, IRFNRM, 
IRFCOR, IRFID , IRFWRK 
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00'-J<rkLn^CjOKJh-» U>fOl-‘ 'JCTiUl4^UJfOl-‘ 


WRITE (IRSTRT) 
WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 
2 

WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 

WRITE (IRSTRT) 


WRITE (IRSTRT) 


WRITE (IRSTRT) 


WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 
2 

WRITE (IRSTRT) 
1 

WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 

WRITE (IRSTRT) 
WRITE (IRSTRT) 
WRITE (IRSTRT) 
WRITE (IRSTRT) 
WRITE (IRSTRT) 
1 

WRITE (IRSTRT) 


IPULSE , KPULSE , IPDTIM, IPDPOR 
MANVAR( 7 ) , JPR ,ICCM1 ,NCCMP 
IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 
ISTRN ,ICOP , IPRINT, IPOST ,IDIST , ILEAN , 
IBPRES , IBNORM, IM3NIT, IST116 , IST117 , IST118 
INOD , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
IKBC , ITI , ITR , ITRAN ,ITRAC ,IEXT , 

ISBC ,ISBCR 

IDINC , IDTOT , IPORCE, IRESID, IWIUOD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS , I ISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTOO, ICSTNO, ITSTNO, 
IISTNO, IISNNO, IIPSNO, IICSNO, IITSNO, IDMAT , 
IDMINO, IEQCST, IQMENO, IICMNO, ITD5N0, IVSWIO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 ,IDSITR,ISWELL, 
IEQCSI,IPREF ,IDSX3 ,IYIEED,IST441,IST442, 
IST443 , IST444 , IST445 , IST446 , IST447 , IST448 
IRL , IREAC , IES ,IAB , IBQM ,ISRL , 

IBTLC , ISKM , HAST ,IRI£ ,IDINCP,IFORIN, 

IOP , IDAM , IMASMT, IDIAG ,IUPTRI,ICDLPT, 

IMASDI , IMASUP, IST521, IST522 , IST523 , IST524 
IELV , ICOR ,ISIG , IEPS ,IWNOD ,ISNOD , 

IENOD , IETM , ICH ,IPP ,IXRL ,IXIRL , 

IXP ,IXK ,KPSTRN,KCSTRN,KTSTRN,KISTRS, 

KISTRN,KIPSTR,KICSTR,KITSTR,KPSTNO,KCSTNO, 
KTSTNO,KISTNO,KISNNO,KIPSNO,KICSNO,KITSNO, 
IMASNO, IMNCX) , IEQPST, IEQPSI ,KEQPST, KEQPSI , 
KDMAT ,KEMTfW,KTOSNO / KITDST,IXM ,IXC , 
IVEIM ,IAEU1 , IMASEL,KYIEID, IST647 , IST648 , 
IST649 , IST650 , IST651 , IST652 , IST653 , IST654 
ICON , IKBCR , ITRACR, ITRANR, IBETA , IDET 
KffiPS ,KTGEPS,KGSIG ,KIGSIG,RGTDST, 

IGEPNO, 11(2340, IGSINO, IIGSNO, IGTDNO, 

KGEPNO , KIC2N0 , KGSINO,KIGSNO,KGTDNO 
KEQCSI,KICMNO,KSWU40,KIMPNO,KTDFNO,KDUMM5f, 
KEQCST , KCMENO , KVSWIO , IST9 10 , IST9 1 1 , IST9 12 
ISUBEL, ISUBNP, ISUBPT,NSDATA, ISUBTY, TEMRED 
NSUCRD,NSUNFR,NSIMX),NSUSTR,NSUCHR,NSUPR , 
NSUINT,NSULV , NSITTEM, NSUNDI , NSUSHR , NSUIDF 
NLVSUB( 10) ,NFRSUB( 10) 

ISHIFT,KSHIFr, IFREQ ,LFREQ ,NOFFST,NPOUND 
TIMINC , TOTINC , RUNTIM 
□ALPHA, DEETA ,DGAMMA 

RELERR,ABSERR, REACMX,RESIMX,DISERR, DISTOR, 
ENCTOR,ENGNRM 

ISETUP,MAVAIL,LENREC,NUMREC,LENBLK,NUMBLK, 
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1 IVPAGE,NVPAGE,]VSTRT,IKRO , TTmT, ,IPIVCO, 

2 IHEDER, IFRNRH, IPIVOT, IPIVRO, IPVKQL, IVEND , 

3 ISRECD, IERECD 

WRITE (IPSTRT) MAXCCL,NELCOL,LAYPRT, JTENSR 


NEXT STORE THE DATA IN BLANK COMMON IN 64 WORD BLOCK S 


NWORDS = 64 

NRECDS = HAST / NWORDS 

DO 600 JREC = 1, NRECDS 
IBEG = l+( JREC-1) *NWORDS 
IEND = JREC*NWORDS 

WRITE (IRSTRT) ( IWORK(JJ), JJ=IBEG,IEND ) 
600 CONTINUE 


IBEG = 1+NRECDS*NW0RDS 
IEND = HAST 
IF (IBEG .NE. IEND) 

1 WRITE (IRSTRT) ( IWORK(JJ), JJ=IBEG,IEND ) 


PRINT MESSAGE AND GO ON TO THE NEXT INCREMENT 


CALL TTM3UT ('REST', 'ART FILE',' GEN',' ERAT' ' ED 

RETURN 

END 


. . . SUBROUTINE RESTRT . . . RESTART FILE READER 


C 

C 


SUBROUTINE RESTRT ( RWORK, IWORK, ISIZE ) 


C ** 


★ ★ 


C ** READS-IN A BINARY FILE FOR PROBLEM RESTART 
C ** 


** 

*★ 


C 

c 

c 

c 

c 

c 


IWORK : INTEGER WORKSPACE 

RWORK : REAL WORKSPACE 

ISIZE : SIZE OF WORKSPACE 


SYSTEMS' MANUAL 


Page : 142 


MHOST Version 4.2 



C ********************************************************************** 
C 


c 


IMPLICIT REAL* 8 (A-H,0-Z) 
REAL* 4 RWORK 


C 


DIMENSION IWORK(ISIZE), RWDRK(ISIZE) 


CCMMDN / 
COMMON / 

1 

2 

COMMON / 

1 

COMMON / 
COMMON / 
COMMON / 

1 

2 

3 

4 

5 

6 

7 

8 
9 
+ 


COMMON / 

1 

COMMON / 
COMMON / 
COMMON / 

1 

COMMON / 
CQMMDN / 

1 

CQMMDN / 

1 

2 

CQMMDN / 
CQMMDN / 

1 

2 

3 

4 

COMMON / 


ADDVAL / ISPRI ,KSPRI ,IDASH ,KDASH ,IMASS ,KMASS 
ALGEM / ICREAD, ILPRNT, JLPRNT, ICQNSL, IPOSTF, ISCRAF, 
IPLOTB, IRSTRT, JCREAD, IPVARS, IPSETS , IFILEX, 
PI ,LINE ,LINE2 

AJJTOIN / CURPER,TOTPER,ARCLEN,ATOU'K,BTOLER,CTQLER, 
JADAP ,NCREEP, SCALE 
BODYFR / POINTS ( 3, 2) 

BSECT / IBSECT , KBSECT 

CQNTRO / JEND ,JITER ,JTEMP ,JPRINr,JP ,JSUB , 

JINC , JREST , JSAVE , JREDIM, JAI7IO ,JPOST , 
JBACK , JOPTIM, JCREEP , JDIST ,JCQNST,JDYN , 
NCNISO, ITHERM, ITRIG ,IDYNM , JREPOT, JTANGE, 
JIHERM, JFORCE , JUTEMP, JUCOEF, JDISTS , JUHOQK, 
JDERIV, JUBOUN, IDSTOP, INTSTR, JPLAST, JRAND , 
JFRQNT, JDEFOR, JEMBED,ITEST ,JDISP ,IFBFGS, 
IFSCNT, IFLINE, IFPRNT, ICCMPS, IPCONJ, JEIGEN, 
IFBODY, IFQRAV, IFCENT, JDAMP / LDYN ,ISTAT , 
JFDSXX, JISTIF, JCENIM, JFINIT, JLARGE, JFQIJDW, 
JWKSLP, JPRES , JCDUM2, JCDUM3 
CCMPND / NXSTAT,NXSQLV,NXINrG,NXMODL,NXBCKL,NXSUPR, 
NXREQN , NXDUM1 , NXDUM2 , NXDUM3 , NXDUM4 
COUNT / LININC , LINTOT , NOECHO 
DAMP / DAMPF(3) 

EIGEN / IEGNVC,IGNMS , IQMEG , IMDENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED, IMDAM ,ICMEGD 
MODSUP / IMFORO , IMDISO , IMVELO , IMFOR1 , IMDIS1 , IMVEL1 
ELEMEN / IC ,IEL ,IDF ,JLAW ,IPA1H ,IASSEM, 
JRULE , JCART , JEL009, JEL010, JEL011, JEL012 
HARMON / QMEGH , IHARM ,KHARM ,CMEGB ,IBASE ,KBASE , 
ICNFOR, ICMFOR, ICMRES, ICHHFN, ICBHFN, ICBEXC, 
ICCMAT 

INCCON / FACTOR, INCFLG( 21) 

MAXIMA / MAXCRD,MAXNFR,MAXNOD,MAXSTR / MAXCHR,MAXPRS, 
MAXLAY , MAXINT , MAXWRK , MAXNLV, NSUMAX , MAXCMP , 
MAXBSP,MAXGMR,MAXTEM,MAXEIM,MAXLWK,MAXDMr, 
MAXFRN,MAXBET,MAXVAR,MAXSET,MAXEAN,MAXORD, 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
L3UBIN / JLOUB , JINTER, JEXTRA, JWEIGH, JSUBRE, JISTRN, 
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1 

COMMON / 

1 

2 

3 

4 

5 

6 
7 

COMMON / 

1 

COMMON / 

1 

2 


COMMON / 

1 

2 


COMMON / 
COMMON / 
COMMON / 

1 

2 

COMMON / 

1 

2 


COMMON / 

1 

2 


COMMON / 
COMMON / 
COMMON / 

1 


COMMON / 
COMMON / 


1 

COMMON / 
1 
2 

3 

4 

5 

6 
7 


COMMON / 


PARAM / 


PERPAR / 
PERPTR / 

PERDAT / 

PERIOD / 
POSTPN / 
POWER / 

PREPAR / 


PREPTR / 


PULSES / 
RESULT / 
START1 / 

START2 / 
START3 / 

START4 / 


START5 / 


JCITER, JHRGLS , JGRAM ,LOUB03,LOUB04,LCfUB05 
NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX , 

NTRAN ,NIRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRINT,NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 

NSHIFT,NSBFGS,NGMRS ,NSPRI ,NMASS ,NDASH , 

NDYNMD,NSENC ,NSUPER,NHARM ,NBASE ,NINC , 

NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUMOH , NDIMEN , NMONIT , NPAR4 0 , NPAR4 1 , NPAR4 2 , 
NPAR43 ,NPAR44 ,NPAR45 ,NPAR46 ,NPAR47 ,NPAR48 
IPTYPE( 32) ,NPTYPE,NPVARS,NPSETS, JPERT , 

NFVCCN,NPP008,NPP009,NPP010,NPP011,NPP012 
IMEANS , ISTDEV, IPDATA, IVTYPE , ISKIP , IREDEF, 
IDINCO , IREACO , IRESDO , IDGRP , ISTIFO , IMASSO , 
IPP013 , IOMEGO , ICMEGP, ICMEGK, IETAK , IZETAK 
IXCOOR, IXCHAR, IXFORC,KXPORC, IXDIST, KXDIST, 
IXTEMP , JXTEMP , IXBEAM, IXFVEC , IXSPRI , KXSPRI , 
IXPRES , IXPREF , IXPO 15 , IXP016 , IPWBEG, IPWEND 
JPEROD( 2 ) , IPDISP, IPFORC , INDISP , INPORC 
IPOINT, JPOINT,KPOINr f NDATA ,PRNTBF( 6 ) 

IELPHI , IELTNM, IEPSMO, ISIGMO, IHFN ,IHPC , 
IFBP ,ISPP , ISFF , ISQQ ,ICQQ ,ITOM , 
IPSF , IPSD 

NRFPTS , NRFSDS , NRFLIN , NRFINr , NRFREA, NRFSEL , 
NRFCMP,NRFDOF,NRFSIZ,LRFEND, JRFTYP, JCOUNT, 
JCFLftG , JRFSEL , JRFDOM , NVKEPT , MORE 
IRFPTS, IRFINT, IRFMNR, IRFSDR, IRFSEL, IRFSET, 
IRFMNV, IRFSDV, IRFPTV, IRFVEC , IRFVAL , IRFNRM, 
IRPCOR, IRFID ,IRFWRK 
IPULSE , KPULSE , IPDTIM, IPDPOR 
MANVAR( 7 ) , JPR ,IC0M1 ,NOCMP 

IELPRM, ITYP ,INEL ,ICHAR ,IPRES ,ISTR S , 
ISTRN ,ICOP , IPRINT, IPOST ,IDIST , ILEAN , 
IBPRES , IBNORM, IMONIT, IST116 7 IST117 , IST118 
INOD , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
IKBC ,ITI , ITR ,ITRAN ,ITRAC ,IEXT , 

I SBC , ISBCR 

IDINC , IDIOT , IFORCE, IRESID, IWINCD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS, IISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTTJO, ICS1NO, ITSTNO, 
IISINO, IISNNO, IIPSNO, IICSNO, IITSNO, IDMAT , 
IDMTNO, IEQCST, ICMENO, IICMNO, I1DSNO, IVSWK), 
IDYNV , IDYNA ,IDSX1 ,IDSX2 ,IDSITR,ISWELL, 
IEQCSI, IPREF ,IDSX3 , IYIELD , IDFINC , IDFIOT , 
IST443, IST444 , IST445, IST446 , IST447 , IST448 
IRL , IREAC , IES ,IAB ,IBQM ,ISRL , 
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c 

c 


1 

2 

3 

COMMON / 

1 

2 

3 

4 

5 

6 

7 

8 

COMMON / 
COMMON / 

1 

2 


COMMON / 

1 

COMMON / 
COMMON / 

1 

COMMON / 
COMMON / 
COMMON / 
COMMON / 
COMMON / 

1 

COMMON / 

1 

2 

3 

COMMON / 


IBTLC , ISKM , HAST , IRLB , IDINCP,IPORIN, 
IOP ,IDAM , IMASMT, IDIAG , IUPTRI, ICOLPT, 
IMASDI , IMASUP, IST521, IST522 , IST523 , IST524 
START6 / IELV ,ICOR ,ISIG ,IEPS ,IWNOD ,ISNOD , 
IENOD ,IETM , ICH ,IPP ,IXRL ,IXIRL , 
IXP , IXK ,KPSTRN,KCSTRN,KTSTRN,KISTRS, 
KISTRN, KIPSTR, KICSTR, KITSTR, KPSTNO , KCSTNO , 
KTSTNO,KISTNO,KISNNO,KIPSNO,KICSNO,KITSNO, 
IMASNO,IMNCD f IEQPST, IEQPSI,KEQPST,KEQPSI , 
KCMAT ,KEMINO,KTDSNO / KITDST, IXM ,IXC , 
IVEU1 , IAELM , IMASEL,KYIEI£> / IST647 , IST648 , 
IST649 , IST650 , IST651 , IST652 , IST653 , IST654 
START7 / ICON ,IKBCR , ITRACR, ITRANR, IBETA , IDET 
START8 / KGEPS ,KIGEPS,KGSIG , KIGSIG, KGTDST , 

IGEPNO, IIGENO, IGSINO, IIGSNO, IGIDNO, 
KGEPNO,KIQENO,KGSINO,KIGSIW,KGTDNO 
START9 / KEQCSI ,KICMNO,KSWHW,KIMPNO,KTDFNO,KDUMMY, 
KEQCST,KQME2«0,KVSWID, IST910, IST911 , IST912 
SUBEIM / ISUREL, ISUBNP, ISUBPT,NSDAIA, ISUETY, IEMBED 
SUBTYP / NSUCRD,NSUNFR / NSUNOD,NSUSrR,NSUCHR / NSUPR , 
NSUHfT,NSULV ,NSUTEM,NSUNDI,NSUSHR,NSUIDF 
SUBSTR / NLVSUB( 10),NFRSUB( 10) 

SHIFT / ISHIFT , KSHIFT , IFREQ ,LFREQ ,NOFFST,NPOUND 
TIME / TIMINC,TOTINC,RUNTIM 
TMARCH / DALPHA,DBETA ,DGAMMA 

TOLER / RELERR,ABSERR,REACMX,RESIMX,DISERR,DISTOR, 
ENGTOR,ENC2®M 

VRTDSK / ISETUP,MAVAIL / LENREC / NUMREC,LENBUK,NUMBLK, 
IVPAffi,NVPAffi,IVSTRT,IKRO / ILCGL ,IPIVCO, 
IHEDER, IFRNRH, IPIVOT, IPIVRQ, IPVKGL, IVEND , 
ISRECD, IERECD 

ZPRINT / MAXOQL,NELOCL,LAXPRT,JTENSR 


*******************i,ic-k**-k-k*****************-k1rit*1,*irk**irk******-k****ir**-k 


C ** READ BACK IHE CONTENTS OF IHE COMMON BLOCKS ** 

C ********************************************************************** 

C 


READ 

(IRSTRT) 

READ 

(IRSTRT) 

1 


2 


READ 

(IRSTRT) 

1 


READ 

(IRSTRT) 

READ 

(IRSTRT) 


ISPRI ,KSPRI , IDASH ,KDASH ,IMASS ,KMASS 
ICREAD, rLPRNT, JLPRNT, ICCNSL, IPOSTF, ISCRAF, 
IPDOTB , IRSTRT, JCREAD, IPVARS , IPSETS , IFILEX , 
PI , LINE ,LINE2 

CURPER, TOTPER, ARCLEN, A10LER, BIGLER, CT0LER, 
JADAP ,NCREEP, SCALE 
POINTS ( 3, 2) 

IBSECT , KBSECT 
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READ ( IRSTRT) 

1 

2 

3 

4 

5 

6 

7 

8 
9 
+ 


READ 

1 


READ 

READ 

READ 

1 

READ 

READ 

1 

READ 

1 

2 

READ 

READ 

1 

2 

3 

4 


READ 

1 

READ 

1 

2 

3 

4 

5 

6 
7 


READ 

1 

READ 

1 

2 

READ 


(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


(IRSTRT) 


JEND , JTTER ,JTEMP ,JPRINr,JP ,JSUB , 

JINC , JREST , JSAVE , JREDIM, JAUIO , JPOST , 
JBACK , JDPTIM, JCREEP , JDIST ,JCCNST,JDYN , 
NCNISO, ITHERM, ITRIG ,IDYNM , JREPOT, JTANGE, 
JIHERM, JFORCE , JUTEMP , JUCOEF , JDISTS , JUHOQK , 
JDERIV, JUBOUN , IDSTOP , INISTR, JPLAST , JBAND , 
JFRCOT, JDEFOR, JEMBED,ITEST ,JDISP , IFBFGS, 
IFSCWT , IFLINE , IFPRNT , IOCMPS , IPCQNJ , JEIffiN , 
IFBODY, IFGRAV, IFCEMT, JDAMP ,LDYN ,ISTAT , 
JFDSXX , JISTIF , JCENIM, JFINIT, JLARGE , JFODOW, 
JWKSLP, JPRES , JCDUM2 , JCDUM3 
NXSTAT,NXSQLV,NXINrG,NXICDL,NXBCKL,NXSUPR, 
NXREQN , NXDUM1 , NXDUM2 , NXDUM3 , NXDUM4 
LININC , LD7IOT , NOECHO 
DAMPF(3) 

IEGTOC,I<3IMS ,IOMEG , nOENO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR , IPTVED, IMDAM ,ICMEGD 
IMPORO , IMDISO , IMVELO , IMFOR1 , IMDIS1, IMVEL1 
IC / IEL , IDF , JLAW ,IPA3H ,IASSEM, 

JRULE , JCART , JEL009, JEL010, JEL011, JEL012 
GMEGH , IHARM ,KHARM ,GMBGB ,IBASE ,KBASE , 
ICNFOR, ICMPOR, ICMRES, ICHHFN, ICBHFN, ICBEXC . 
ICCMAT 

FACTOR, INCFLG( 20) 

MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS, 
MAXLAY , MAXINT , MAXWRK , MAXNLV, NSUMAX , MAXCMP , 
MAXBSP,MAXGMR,MAXTEM,MAXELM,MAXLWK,MAXDMr, 
MAXFRN,MAXBET,MAXVAR,MAXSET,MAXEAN,MAXORD, 
MAX025 ,MAX026 ,MAX027 ,MAX028 ,MAX029 ,MAX030 
JKXJB , JINIFR, JEXTRA, JWEIGH, JSUBRE, JTSTRN, 
JCITER, JHRGLS , JGRAM ,LOUB03,LOUB04,DDUB05 
NTYPE ,NELEM ,NNODE ,NBC ,N1TE ,NMAX , 

NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRH7T,NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 

NSHIFT,NSBFCS,NGMRS ,NSPRI ,NMASS ,NDASH , 

NDYNM D,NSENC ,NSUPER,NHARM ,NBASE ,NINC , 

NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUM2H,NPAR38 , NM3NIT, NPAR40 , NPAR4 1 , NPAR42 , 
NPAR43,NPAR44 ,NPAR45,NPAR46 ,NPAR47 ,NPAR48 
IPTYPE( 32) / NPTYPE,NPVARS,NPSETS, JPERT , 
NPVCQN,NPP008 ,NPP009 ,NPP010 ,NPP011 ,NPP012 
IMEANS , ISTDEV, IPDAIA, IVTYPE , ISKIP , IREDEF, 
IDINCO , IREACO , IRESDO , IDGRP , ISTIFO , IMASSO , 
IPP013,ICMX&,ICMEGP,ICMEGK,n^ ,IZETAK 
IXCOOR, IXCHAR, IXFORC,KXPORC / IXDIST / KXDIST, 
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1 

2 


READ 

READ 

READ 

1 


READ 

1 

2 


READ 

1 

2 


READ 

READ 

READ 

1 

2 

READ 

READ 

1 

READ 

1 

2 

3 

4 

5 

6 
7 

READ 

1 

2 

3 

READ 

1 

2 

3 

4 

5 

6 

7 

8 

READ 

READ 

1 


(IRSTRT) 

(IRSTRT) 

(IRSTRT) 


(IRSTRT) 


(IRSTRT) 


(IRSTRT) 

(IRSTRT) 

(IRSTRT) 


(IRSTRT) 

(IRSTRT) 

(IRSTRT) 


(IRSTRT) 


(IRSTRT) 


(IRSTRT) 

(IRSTRT) 


IXTEMP , JXTEMP , IXEEAM, IXFVEC , IXSPRI , KXSPRI , 
IXPRES, IXPREF, IXP015 , IXP016 , IPWBEG, IPWEND 
JPEROD( 2 ) , IPDISP, IPFORC, INDISP, INPORC 
IPOIOT, JPOn7T,KPOINr,NDATA ,PRNTBF( 6 ) 

IELPHI , IELTNM, IEPSM3, ISI(M), IHFN ,IHFC , 
IFBP ,ISPP , ISFF , ISQQ ,ICQQ , ITNM , 
IPSF , IPSD 

NRFPTS , NRFSDS , NRFLIN, NRF3OT, NRFREA, NRFSEL , 
NRFCMP , NRFDOF , NRFS I Z , LRFEND , JRFTYP , JCOUNT , 
JCFLAG, JRFSEL , JRFDGM, NVKEPT , MDRE 
IRFPTS , IRFINT, IREMNR, IRFSDR, IRFSEL, IRFSET, 
IRFMNV, IRFSDV, IRFPTV, IRFVEC, IRFVAL, IRFNRM, 
IRFCOR, IRFID ,IRFWRK 
IPULSE , KPULSE , IPCTIM, IPDPOR 
MANVAR( 7 ) , JPR ,ICCM1 ,NCQMP 

IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 
ISTRN ,ICOP , IPRINT, IPOST ,IDIST , ILEAN , 
IBPRES , IBNORM, IMDNIT, IST116 , IST117 , IST118 
INC® , ITEM , INLV ,IPOSU ,ITEMDF,IDUP 
IKBC ,ITI , ITR , ITRAN ,ITRAC ,IEXT , 

I SBC ,ISBCR 

IDINC , IDTOT , IFORCE, IRESID, IWTNCO, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS , I ISTRN, 
IIPSTR, IICSTR, IITSTR, IPSTOO, ICSINO, ITSINO, 
IISINO, IISNNO, IIPSNO, IICSNO, IITSNO, IDMAT , 
IEMINO, IEQCST, ICMENO, IICMNO, ITDSND, IVSWIO, 
IDYNV , IDYNA ,IDSX1 ,IDSX2 ,IDSITR, ISWELL, 
IEQCSI , IPREF ,IDSX3 , IYIEI®, IST44 1 , IST442 , 
IST443 , IST444 , IST445 , IST446 , IST447 , IST448 
IRL , IREAC , IES ,IAB ,IBQM ,ISRL , 

IBTLC , ISKM , ILAST , IRLB ,IDINCP,IFORIN, 

IOP , IDAM , IMASMT, IDIAG ,IUPTRI,ICdLPT, 

IMASDI , IMASUP, IST521, IST522 , IST523 , IST524 
IELV , IOOR , ISIG , IEPS ,IWNCO ,ISNCD , 

IENCO , IEIM , ICH ,IPP , IXRL ,IXIRL , 

IXP , IXK ,KPSTRN,KCSTRN,KTSTRN,KISTRS, 

KI STRN , KIPSTR , KICSTR , KITSTR , KPSTNO , KCSTNO , 
KTSTNO,KISTNO,KISNNO,KIPSNO,KICSNO,KITSNO, 
IMASNO, IMNOD , IEQPST , IEQPSI , KEQPST , KEQPSI , 
KDMAT ,KEMINO,KIDSNO,KITDST, IXM ,IXC , 
IVEL24 ,IAEU4 , IMASEL,KYIELD, IST647 , IST648, 
IST649 , IST650 , IST651 , IST652 , IST653 , IST654 
ICON , IKBCR , ITRACR, ITRANR, IBETA ,IDET 
RGEPS ,KIOEPS,KGSIG ,KIGSIG,KGTDST, 

IGEPNO, IIGENO, IGSINO, IIGSNO, IGTONO, 
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KGEPNO,KIGENO,KGSINO,KIGSNO,KG?n>NO 
KEQCSI,KIQMNO,KSWHto,KTMPNO,KTDFNO,KDUMMY, 
KEQCST,KQMENO,KVSWTO,IST910,IST911,IST912 
ISUBEL, ISUBNP, ISUBPT,NSDATA, ISUBTY, TFTMRFn 
NSUCRD,NSUNFR,NSUNCD / NSUSTR,NSUCHR,NSUPR , 
NSUINr,NSULV ,NSUTEM,NSUNDI,NSUSHR,NSUIDF 
NLVSUB( 10) ,NFRSUB( 10) 

ISHIFT , KSHIFT , IFREQ ,LFREQ ,NOFFST,NFOUND 
TIMINC , TOTINC , RUMTIM 
□ALPHA, DBETA. ,DGAMMA 

RELERR,ABSERR,REACMX,RESIMX,DISERR,DISTOR, 

ENCTOR,ENGNRM 

ISETUP,MAVAIL,LENREC,NUMREC,LENBLK,NUMHLK, 
IVPAGE,NWAGE,n^TRT,IKRO ,ILCX3L ,IPIVCO, 
IHEDER, IFRNRH, IPIVOT, IPIVRO, IPVKOL, IVEND , 
ISRECD, IERECD 

MAXCOL , NELCOL , LAYPRT , JTENSR 


READ BACK THE DATA IN BLANK COMMON STORED IN 64 WORD BLOCK S 


READ 

(IRSTRT) 

1 


READ 

(IRSTRT) 

READ 

(IRSTRT) 

1 


READ 

(IRSTRT) 

READ 

(IRSTRT) 

READ 

(IRSTRT) 

READ 

(IRSTRT) 

READ 

(IRSTRT) 

1 


READ 

(IRSTRT) 

1 


2 


3 


READ 

(IRSTRT) 

READ 

r********* 

BACK THE ; 


** 


NWORDS = 64 

NRECDS = HAST / NWORDS 

DO 600 JREC = 1, NRECDS 
IBEG = l+( JREC-1 ) *NW0RDS 
IEND = JREC*NWORDS 

READ (IRSTRT) ( IWORK(JJ), JJ=IBEG, IEND ) 
600 CONTINUE 

IBEG = l+NRECDS*NWORDS 
IEND = HAST 
IF (IBEG .NE. IEND) 

1 READ (IRSTRT) ( IWDRK(JJ), JJ=IBEG, IEND ) 


********************************************************************** 
** PRINT MESSAGE AND PROCEED WITH THE ANALYSIS AS USUAL ** 


CALL QUIT ('REST', 'ART ','FILE',' REA' , 'PER ',' ',1) 

CALL TDCOT ( 'REST' , 'ART ','FILE',' WAS',' REA','D ' ) 

*** STEP UP THE INCREMENT COUNTER 
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JINC = JINC+1 
C 

RETURN 

END 

3.4 Post-Processing Data File 

The MHOST program produces an industry-standard formatted post- 
processing data file when the user requests it. The format is almost 
compatible with the MARC general purpose finite element program, Versions 
J.3 and K.l. The difference is that the stress variables (referred to as 
element variables in most of the finite element programs) are produced at 
nodal points and written on the file in a tightly packed manner. 

CONTENTS OF HOST POST TAPE - Version 4.2 

The following describes the contents of the ten blocks which will be 
found on the Post Tape. This information is the same for either the binary 
or the formatted Post Tape. 



BLOCK NUMBER 

DESCRIPTION 


Block I 

TITLE 


NR;80A1; (TITLE( J) , J=l,70) 

TITLE (J) is Jth character 


Block II 

CONTROL INFORMATION 

1 . 

NR;6I3;INUM 

Number of variables per element 

2. 

LNUM 

Number of nodes in mesh 

3. 

MNUM 

Number of elements in mesh 

4. 

NDEG 

Number of degrees of freedom per node 

5. 

NSTRES 

Dummy 

6. 

INOD 

Number of nodal variables - See Note 
below. 

7. 

IPSTCC 

Connectivity and coordinate flag 


(1- given) 
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8 . 


IPSTYP 


Type of tape (1- Formatted) 

9. NCRD Number of coordinates per node 

10. NNODMX Maximum number of nodes per element 

11. IANTYP Analysis Type Flag: 

2 = Displacement - With Reaction 
Forces 

4 = Dynamics - With Reaction Forces 

15 = Eigenvector (Modal) 

16 = Eigenvector (Buckle) 


12. 

ICQMPL 

Set to 0 if real analysis 
Set to 1 if complex analysis 

13. 

NBCTRA 

Number of nodes with transformations 

14. 

POSTRV 

Post tape revision number, 1 for this 
release (Version 4.2) 


IDM4 



106 

Not used; reserved for future 


IDM6 

expansion 


IDM7 



Note: 


INOD = {NDEG} * JNODE 

If IANTYP = 2 on 2 

4 4 

15 1 

16 1 

IANTYP = 15 only appears during subincrements 
IANTYP = 16 only appears during subincrements 
If IANTYP = 8 and ICQMPL = 1 JNODE = 2 
If IANTYP = 9 and ICQMPL = 1 JNODE = 4 

Block II CODE NUMBER ASSOCIATED WITH ELEMENT 

VARIABLES 

INUM Records; J=l, INUM 
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NR;6I3; JPLOT( J) 
Block IV 


NR;6I3;I21(1) 

IM(2) 

121(3) 

I21(NNOCMX+2) 
Block V 


NR;6E13.6; SUM(l) 
SUM(2) 
SUM(NCRD) 

Block VI 


NR;6I13; 121(1) 
Block VII 


Element Variable Code 
CONNECTIVITY' LIST 

If IPSTCC is zero this block will be 
emitted. 

MNUM Records; J=1,MNUM 
Element Type 

Number of Nodes in this Element 
1st Node of Element J 
Last Node of Element J 
COORDINATE LIST 

If IPSTCC is zero this block will be 
emitted. 

I2JUM Records; J=l, LNUM 
1st Coordinate of Jth Node 

Last Coordinate of Jth Node 

TRANSFORMATION LIST 

If NBCTRA is zero this block will be 
emitted. 

Binary 1 record 

Formatted (NBCTRA-1) /6 + 1 records 

List of nodes which have 
transformations applied 

TRANSFORMATION - DIRECTION COSINES 

If NBCTRA is zero this block will be 
emitted. 
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NR;6E13.6; D(l,l) 
D(2, 1) 
D(3, 1) 
D(l/2) 
D(2,2) 
D(3,2) 
D(l/3) 
D(2,3) 
D(3,3) 


1 record per each node listed in 
Block VI if binary tape 

2 records per node if formatted tape 
Transformations are for local to 
global 


Blocks VIII, IX and X are repeated for each increment. 


Block VIII 


INCREMENT, TIME AND FREQUENCY 


NR;6E13.6 Xl(l) 
Xl(2) 


Xl(3) 

Xl(4) 


Xl(5) 

Xl(6) 


Transient Time 

Increment number is a real footed as 
I + J/100 

I is the static increment number 
J is either the harmonic subincrerent 
or the eigenvector number 
Frequency 

Flag to read new blocks II, III, rv, 
V, VI, VII. Set to 1 to read these 
blocks again. 

IANTYP analysis type flag. 

Not used? reserved for future 
expansion. 


Block IX 


VALUES OF ELEMENT VARIABLES 


If INUM is zero, this block is 
emitted. 

If IAMTYP=15 or IANTYP=16, this block 
is emitted. 

MNUM*NStkES Records 

VALUE((CI,J), 1=1, INUM), J=1,INDDE) 

VALUE is the name of an array storing 
all the element variables at nodes. 
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Block X 


VALUE OF NODAL VARIABLES 


If INC® is zero, this block is 
emitted. 

INUM Records 

NR;6E136; SUM(l) Nodal displacements, velocities, 

SUM(NDEG) accelerations and reactions 

SUM(NDEG+1) 

SUM(2*NDEG) 

SUM(INOD) 


Daring subincrements: 

The first NDEG quantities are: 

IANTYP = 15 

Nodal Components of Dynamic 
Mode 


IANTYP = 16 

Nodal Components of Buckle 
Eigenvector 


NOTES: 


Indicates the beginning of a new record for the binary 
post tape. 


NR; Format 


Indicates the beginning of a new set of information which 
is to be read with the following format: 


Appendix 1 provides a sample program to dump the post tape. 


The table below provides codes for selecting strains and stresses for 
plotting: 


1-6 

Components of total strain. 

7 

Equivalent plastic strain. 

8 

Equivalent creep strain. 

9 

Total temperature. 

11-16 

Component of stress. 

17 

Equivalent Mises tensile stress. 
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18 


Mean normal stress (tensile positive) 

(for Mohr-Coulanb) . 

19 User definable quantity to write on post tape. 

20 User definable quantity to write on post tape. 

21-26 Physical components of the total plastic strain. 

27 Total equivalent plastic strain. 

29 Second state variable. 

31-36 Physical components of total creep strain. 

37 Total equivalent creep strain. 

If several layers (shell or beam) are to be plotted, the code number should be 
as follows: code for variable as above + 100 x layer number. 

An example of the post tape file for a 20 four node plane stress element used 
to mode a cantilever beam is: 


BEAM PROBLEM 
16 
1 
0 

17 

11 

12 

13 

39 

1 

2 

3 

7 

21 

22 

23 

8 

31 

32 

33 


33 

1 

1 


20 

2 

0 


2 

4 

0 


2 

2 

0 


4 

0 

0 


3 

4 

1 

2 

5 

4 

3 

4 

2 

3 

6 

5 

3 

4 

4 

5 

8 

7 

3 

4 

5 

6 

9 

8 

3 

4 

7 

8 

11 

10 

3 

4 

8 

9 

12 

11 

3 

4 

10 

11 

14 

13 

3 

4 

11 

12 

15 

14 

3 

4 

13 

14 

17 

16 
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I 



3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

0.0000 

0.0000 

0.0000 

2.0000 

2.0000 

2.0000 

4.0000 

4.0000 

4.0000 

6.0000 
6.0000 
6.0000 
8.0000 
8.0000 
8.0000 
10.000 
10.000 
10.000 
12.000 
12.000 
12.000 
14.000 
14.000 

14.000 

16.000 
16.000 
16.000 
18.000 
18.000 
18.000 
20.000 
20.000 
20.000 

0.00000 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.50000 

0.0000 

-0.50000 

0.00000 


14 

16 

17 

19 

20 
22 
23 

25 

26 
28 
29 


0.00000 


15 

17 

18 
20 
21 

23 

24 
26 
27 

29 

30 


0.00000 


18 

20 

21 

23 

24 
26 
27 

29 

30 

32 

33 


0.00000 


17 

19 

20 
22 
23 

25 

26 
28 
29 

31 

32 


0.00000 
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6003.0 

-0.18076E-02 

0.0000 

-0.96139E-04 

0.0000 

0.0000 

0.61575E-02 

0.0000 

6003.0 

-0.18076E-02 

0.0000 

0.16348E-03 

0.0000 

0.0000 

0.61575E-02 

0.0000 

6002.9 

-0. 18076E-02 

0.0000 

-0.36859E-03 

0.0000 

0.0000 

0.61574E-02 

0.0000 

6002.8 

-0.18076E-02 

0.0000 

0.17802E-03 

0.0000 

0.0000 

0.61572E-02 

0.0000 

6002.8 

-0.18076E-02 

0.0000 

-0.88108E-03 

0.0000 

0.0000 

0.61572E-02 

0.0000 

6002.8 

-0. 18076E-02 
0.0000 
0.93227E-03 
0.0000 


5999.0 

-0.43187E-08 

0.0000 

-0.16456E-02 

0.0000 

0.0000 

-0.60014E-02 

0.0000 

5999.0 

-0.76764E-08 

0.0000 

-0.30093E-02 

0.0000 

0.0000 

-0.60014E-02 

0.0000 

5998.9 

-0.89027E-08 

0.0000 

-0.34071E-02 

0.0000 

0.0000 

-0.60013E-02 

0.0000 

5998.8 

-0.14700E-07 

0.0000 

-0.56015E-02 

0.0000 

0.0000 

-0.60012E-02 

0.0000 

5998.8 

0.96353E-08 

0.0000 

0.35170E-02 

0.0000 

0.0000 

-0.60012E-02 
0.0000 

5998.8 
0.44419E-08 
0.0000 
0. 19007E-02 
0.0000 


-7.9094 
0.0000 
0.0000 
0.49706E-08 
0.0000 

6003.0 
0.18076E-02 
0.0000 
-7.9240 
0.0000 
0.0000 
0.90418E-08 
0.0000 

6003.0 
0.18076E-02 
0.0000 
-7.9588 
0.0000 
0.0000 
0.10247E-07 
0.0000 

6002.9 
0.18076E-02 
0.0000 
-7.9876 
0.0000 
0.0000 
0.16856E-07 
0.0000 

6002.8 
0.18076E-02 
0.0000 
-7.9996 
0.0000 
0.0000 
0. 10649E-07 
0.0000 

6002.8 
0.18076E-02 
0.0000 
-7.9876 
0.0000 
0.0000 
0.57894E-08 
0.0000 


-0.16610E-02 

0.0000 

0.0000 

0.54500E-09 

0.0000 

-5999.0 

-0.42386E-08 

0.0000 

-0.29525E-02 

0.0000 

0.0000 

-0.35351E-09 

0.0000 

-5999.0 

-0.79717E-08 

0.0000 

-0.34241E-02 

0.0000 

0.0000 

-0. 39346E-09 
0.0000 
-5998.9 

-0.88140E-08 

0.0000 

-0.56537E-02 

0.0000 

0.0000 

-0.11461E-08 

0.0000 

-5998.8 

-0.14428E-07 

0.0000 

0.37059E-02 

0.0000 

0.0000 

-0 . 82053E-09 
0.0000 
-5998.8 
0.86529E-08 
0.0000 
0 . 17084E-02 
0.0000 
0.0000 

-0.13521E-10 

0.0000 


0.61575E-02 

0.0000 

0.29068E-02 

-0.25099E-09 

0.0000 

7.9092 

0.0000 

0.0000 

0.61575E-02 

0.0000 

0.52284E-02 

0.25482E-09 

0.0000 

7.9244 

0.0000 

0.0000 

0.61574E-02 

0.0000 

0.59185E-02 

-0.21738E-09 

0.0000 

7.9579 

0.0000 

0.0000 

0.61572E-02 

0.0000 

0.97750E-02 

0.50583E-09 

0.0000 

7.9881 

0.0000 

0.0000 

0.61572E-02 

0.0000 

0.61729E-02 

-0.55562E-09 

0.0000 

7.9979 

0.0000 

0.0000 

0.61573E-02 

0.0000 

0.33956E-02 

0.85242E-09 

0.0000 


0.60014E-02 

0.0000 

0.51616E-03 

-0.42786E-08 

0.0000 

-0. 16302E-02 
0.0000 
0.0000 
0.60014E-02 
0.0000 

-0. 30447E-03 

-0.78241E-08 

0.0000 

-0.30660E-02 

0.0000 

0.0000 

0.60013E-02 

0.0000 

-0.50404E-03 

-0.88584E-08 

0.0000 

-0.33900E-02 

0.0000 

0.0000 

0.60012E-02 

0.0000 

-0. 10927E-02 

-0. 14564E-07 
0.0000 

-0.55494E-02 

0.0000 

0.0000 

0.60012E-02 

0.0000 

-0.10849E-02 

0.91441E-08 

0.0000 

0.33281E-02 

0.0000 

0.0000 

0.60012E-02 

0.0000 

0.26616E-03 

0.49419E-08 

0.0000 
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0.0000 0.0000 6002.8 -5998.8 7.9891 0.20930E-02 

0.61573E-02 -0.60012E-02 0.18076E-02 0.54419E-08 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

6002.8 5998.9 -7.9647 0.67373E-02 0.61573E-02 0.60012E-02 

-0.18076E-02 0. 17517E-07 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0. 11727E-01 -0.89912E-03 

-0. 16063E-02 0.67225E-02 0.20266E-07 -0.41724E-09 -0.13365E-08 0.17479E-07 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 6002.8 -5998.9 7.9620 0.67078E-02 

0.61573E-02 -0.60012E-02 0.18076E-02 0.17440E-07 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

6002.9 5998.9 -7.9466 0.30772E-02 0.61574E-02 0.60013E-02 

-0. 18076E-02 0.80008E-08 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.70974E-02 0.46497E-02 

0.17720E-02 0.33592E-02 0.11251E-07 0.41181E-08 0.37708E-09 0.87338E-08 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 6002.9 -5998.9 7.9494 0.36411E-02 

0.61574E-02 -0.60013E-02 0.18076E-02 0.94669E-08 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

6002.8 5998.9 -7.9636 -0.40192E-02 0.61573E-02 0.60012E-02 

-0.18076E-02 -0. 10450E-07 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.84715E-02 -0.10157E-02 

-0.18358E-02 -0.48038E-02 0.14573E-07 -0.46498E-09 -0.15311E-08 -0.12490E-07 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 6002.8 -5998.8 7.9616 -0.55885E-02 

0.61573E-02 -0.60012E-02 0.18076E-02 -0.14530E-07 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

6002.8 5998.7 -7.9986 -0.14157E-03 0.61572E-02 0.60011E-02 

-0.18076E-02 -0.36807E-09 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0. 14448E-02 0.54107E-03 

0.10165E-02 -0.66112E-03 0.22925E-08 0.23611E-09 0.85422E-09 -0.17189E-08 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 6002.8 -5998.8 7.9986 -0.11807E-02 

0.61572E-02 -0.60012E-02 0.18076E-02 -0.30697E-08 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

6002.7 5998.7 -8.0174 -0.12263E-01 0.61572E-02 0.60011E-02 

-0.18076E-02 -0.31883E-07 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.20265E-01 0.10427E-01 

0.36572E-02 -0.10436E-01 0.33235E-07 0.93296E-08 0.52916E-09 -0.27133E-07 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 6002.7 -5998.7 8.0146 -0.86084E-02 

0.61572E-02 -0.60011E-02 0.18076E-02 -0.22382E-07 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

0.95018E-27 -0.90381E-03 -999.84 -3.9566 

0.24995E-33 -0.19943E-26 -0.80276E-04 7.9155 
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no non 


-0.95018E-27 
0.12003E-01 
0 . 10900E-08 
-0 . 12003E-01 
0.24005E-01 
-0.14141E-08 
-0.24005E-01 
0.36008E-01 
-0.48385E-09 
-0.36008E-01 
0.48010E-01 
-0.59985E-08 
-0.48010E-01 
0.60013E-01 
-0.37660E-08 
-0.60013E-01 
0.72015E-01 
-0.60526E-08 
-0.72015E-01 
0.84018E-01 
-0.54349E-08 
-0.84018E-01 
0.96020E-01 
0.10420E-07 
-0.96020E-01 
0.10802 
-0.72949E-08 
-0.10802 
0.12002 
0.11364E-07 
- 0.12002 


-0.90381E-03 

999.84 

-3.9566 

-0.24909E-01 

0.41666E-02 

-7.9271 

-0.24006E-01 

0.23057E-03 

15.855 

-0.24909E-01 -0.38388E-02 

-7.9273 

-0.96926E-01 

0. 10585E-01 

-7.9577 

-0.96022E-01 

0.20487E-03 

15.916 

-0.96926E-01 -0.10416E-01 

-7.9569 

-0.21695 

0.58989E-02 

-7.9858 

-0.21605 

0.82186E-04 

15.968 

-0.21695 

-0.57784E-02 

-7.9855 

-0.38499 

-0.68275E-04 

-7.9970 

-0.38409 

-0.33751E-03 

15.989 

-0.38499 

-0.66963E-04 

-7.9954 

-0.60103 

-0. 11629E-02 

-7.9860 

-0.60013 

-0.21884E-04 

15.971 

-0.60103 

0.89412E-03 

-7.9867 

-0.86509 

0.88963E-04 

-7.9663 

-0.86419 

-0.81361E-03 

15.930 

-0.86509 

-0 . 12875E-02 

-7.9640 

-1.1772 

0.47992E-02 

-7.9504 

-1.1763 

-0.24978E-03 

15.909 

-1.1772 

-0.49747E-02 

-7.9526 

-1.5372 

0. 10184E-01 

-7.9669 

-1.5363 

0.28485E-03 

15.933 

-1.5372 

-0.79310E-02 

-7.9644 

-1.9453 

0.26281E-02 

-7.9940 

-1.9444 

-0. 12270E-02 

15.992 

-1.9453 

-0.22268E-02 

-7.9956 

-2.4014 

-0.21691 

-4.0056 

-2.4005 

0. 17279E-02 

8.0074 

-2.4014 

0.21566 

-4.0073 


The write operation takes place in SUBROUTINE POSTOU: 

C=SUBROUTINE=POSTOU CALLED BY SECOND LEVEL DRIVER ROUTINE S 
SUBROUTINE POSTOU 
1 ( ITORK , RWORK , ISIZE ) 

********************************************************************** 


IMPLICIT REAL* 8 ( A-H , O-Z ) 

REAL*4 RWDRK 

********************************************************************** 
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c 


c 

c 

c 

c 

c 

c 

c 


DIMENSION IWORK( 

ISIZE 

) 

, RWORK( 

DIMENS ICM JPLCT( 

80 

) 


DIMENSION KPLOT( 

80 

) 


DIMENSION BUFFER ( 

50 

) 

, VALUE ( 

DIMENSION LOCATE ( 

10 

) 



ISIZE ) 


50 ) 


********************************************************************** 


COMMON BLOCKS IN ALPHABETICAL ORDER 
********************************************************************** 


COMMON / 


1 

2 

COMMON / 

1 

2 

3 

4 

5 

6 
7 


COMMON / 

1 

COMMON / 

1 

COMMON / 

1 

COMMON / 

1 

COMMON / 
COMMON / 
COMMON / 

1 

2 

3 

4 

COMMON / 


1 

2 

3 

4 

5 


AI/3EM / ICREAD, ILPRNT, JLPRNT, ICONSL, IPOSTF, ISCRAF, 
IPLOTB, IRSTRT, JCREAD, IPVARS , IPSETS , IFILEX , 
PI ,LINE ,LINE2 

PARAM / NTYPE ,NELEM ,NNODE ,NBC ,NTIE ,NMAX , 

NTRAN ,NTRAC ,NFD ,NBAND ,NEXT ,NSUB , 

NPRINT,NPOST ,NSBC ,NDUP ,NSIZE ,NBSECT, 

NSHIPT,NSBPGS,NGMRS ,NSPRI ,NMASS ,NDASH , 

NDYNMD,NSBNC ,NSUPER,NHARM ,NBASE ,NINC , 

NITER ,NPSPTS,NFDPTS,NPULSE,NPDPTS,NHARD , 
NSUM0H,NDIMEN,NM3NIT,NPAR40,NPAR41 / NPAR42, 
NPAR43 , NPAR4 4 , NPAR45 , NPAR46 / NPAR47,NPAR48 
CTITLE / TITLE ( 20),IDAT ( 5) / IDATE2,ICLOCK, 

IFCRAY 

EICEN / IEGNVC,IQ4MS ,ICMEG , MBJO, IDYNMD, ISTRT2 , 
IPTAR , IPTBR ,IPTVED,IMDAM , IGMEGD 
ELEMEN / IC , IEL ,IDF ,JLAW ,IPA3H ,IASSEM, 

JRULE , JCART , JEL009, JEL010, JEL011, JEL012 
ELTYP / NELCRD,NELNFR,NELNCD,NEISTR / NELCHR / NELPR , 
NELINT,NELLV ,NELLAY,NDI ,NSHEAR,NELCMP 
ERRORS / IERR 
MACHIN / IDP 

MAXIMA / MAXCRD,MAXNFR,MAXNOD,MAXSTR,MAXCHR,MAXPRS, 
MAXLAY,MAXINT,MAXWRK / MAXNLV / NSUMAX / MAXCMP / 
MAXBSP,MAXO®,MAXTEM / MAXEIM / MAXLWK,MAXEMr / 
MAXFRN,MAXBET / MAXVAR / MAXSET / MAXEAN,MAXORD, 
MAX025 ,MAX026 ,MAX027 / MAX028 ,MAX029 / MAX030 
CONTRO / JEND , JITER ,JTEMP , JPRD7T, JP ,031© , 

JINC , JREST , JSAVE , JREDIM, JAOTO ,JPOST , 
JBACK , JOPTIM, JCREEP , JDIST ,JCONST,JDYN , 
NONISO, IIHERM, ITRIG , IDYNM , JREPOT, JTANGE, 
JTHERM, JFORCE , JUTEMP, JUOOEF, JDISTS , JUHOOK, 
JDERIV, JUBOUN, IDSTOP, INTSTR, JPLAST, JBAND , 
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c 

c 

c 

c 

c 

c 

c 

c 


6 

7 

8 
9 
+ 

COMMON / START1 

1 

2 

COMMON / STARK 
COMMON / START3 

1 

COMMON / START4 

1 

2 

3 

4 

5 

6 
7 

COMMON / STARK 

1 

2 

3 

COMMON / STARK 

1 

2 

3 

4 

5 

6 

7 

8 

COMMON / STARK 
COMMON / STARK 

1 

2 

COMMON / TIME 


JFRONT, JDEFOR, JEMBED, ITEST f JDISP , IFBFGS, 
IFSCNT, IFLINE , IFPRNT, ICCMPS, IPCCNJ, JEIC2N, 
IFBODY, IFGRAV, IPCENT, JDAMP ,I£)YN ,ISTAT , 
JFDSXX , JISTIF , JCENIM, JFINIT , JLARGE , JPODOW, 
JWKSLP, JPRES , JCDUM2 , JCDUM3 
/ IELPRM, ITYP , INEL ,ICHAR ,IPRES ,ISTRS , 
ISTRN ,ICOP ,IPRINr,IPOST ,IDIST , ILEAN , 
IBPRES , IBNORM, IMONIT, IST116 , IST117 , IST118 
/ INOD , ITEM ,INLV ,IPOSU ,ITEMDF,IDUP 
/ IKBC , ITI , ITR ,ITRAN ,ITRAC ,IEXT , 

ISBC , ISBCR 

/ IDINC , IDIOT , IFORCE , IRESID, IWINOD, ISIGNO, 
IEPSNO, IPSTRN, ICSTRN, ITSTRN, IISTRS, IISTRN, 
IIPSTR, IICSTR, IIT'TR, IPSTNO, ICSTNO, ITSTNO, 
IISTNO, IISNNO, IIPSNO, IICSNO, IITSNO, IDMAT , 
IEMENO, IEQCST, IQMENO, IIOMNO, ITDSNO, IVSWID, 
IDYNV ,IDYNA ,IDSX1 , IDSX2 ,IDSITR, ISWELL, 
IEQCSI,IPREF ,IDSX3 ,IYIEID,IST441, IST442, 
IST443 , IST444 , IST445 , IST446 , IST447 , IST448 
/ IRL , IREAC , IES ,IAB ,IBCM ,ISRL , 

IBTLC , ISKM , ILAST , IRLB ^DINCP, IFORCN, 

IOP , IDAM , IMASMT, IDIAG ,IUPTRI,ICGLPT, 

IMASDI , IMASUP , IST52 1 , IST522 , IST523 , IST524 
/ IELV ,ICOR ,ISIG , IEPS ,IWNOD , ISNOD , 

IENCO ,IETM , ICH ,IPP ,IXRL ,IXIRL , 

IXP , IXK ,KPSTRN / KCSTRN,KTSTRN,KISTRS / 

KISTRN , KIPSTRjKICSTR, KITSTO, KPSTTJO, KCSTNO , 
KTSTNO,KISTNO,KISNNO,KIPSNO,KICSNO,KITSNO f 
IMASNO,IMNOD , IEQPST , IEQPSI , KEQPST , KEQPS I , 
KDMAT / KEMINO,KTDSNO / KI'roST, IXM ,IXC , 
IVELM ,IAELM , IMASEL, IST646 , IST647 , IST648 , 
IST649 , IST650 , IST651 , IST652 , IST653 , IST654 
/ ICON , IKBCR , ITRACR, ITRANR, IBETA , IDET 
/ KGEPS ,KIGEPS,KGSIG ,KIGSIG,KGrDST, 

IGEPNO, IIGENO, IGSINO, IIGSNO, ICTDNO, 

KGEPNO , KIGENO , KGS INO , KEGSNO , KGIENO 
/ TIMINC , TOTINC , RUNTIM 


IPOSTF ( 19 ) I FORMATTED OOTPOT FILE FOR POST-PROCESSING 


VERSION 2.0 GENERATES MARC COMPATIBLE POST TAPE CONTAINING 
ONLY MESH DATA AND DISPLACEMENT + REACTION AT NODES. 

THIS CAN BE PROCESSED BY INVOKING ' POSTDATA ' COMMOAND WITH 'MARC' 
OPTION IN 'MENCAT' INTERACTIVE SESSION. 
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c 

( 2 ********************************************************************** 
C 

C FULLY MENTAT COMPATIBLE POST PROCESSING FILE WILL EVENTUALLY 
C WRITTEN ON IPLOTF FILE AND THEN IPOSTF WILL BE USED FOR TOE 
C TOPOLOGICAL MESH DEFINITION OUTPUT TO BE PROCESSED BY 'READ' 

C OPTION IN MENTAT 
C 

C ********************************************************************** 

c 

MINCMP = MAXCMP 
IF( MAXCMP .EQ. 8 ) MINCMP = 5 
C 

I ZERO = 0 

MAXVAL = 50 

MAXQNT = 4 

LOCATE ( 1 ) = ISIGNO 

LOCATE ( 2 ) = IEPSNO 

LOCATE ( 3 ) = IPSTNO 

LOCATE ( 4 ) = ICSTNO 

C 

C HEADER RECORDS ARE WRITTEN IN TOE POST TAPE ONLY WHEN TOTS 

C ROUTINE IS ENTERED AT TOE ZERO-TO INCREMENT. OTHERWISE TOE NODAL 

C VALUES ARE WRITTEN IN TOE POST TAPE. 

C 

IF( JINC .GT. 0 ) GO TO 9000 

C 

C FIRST RECORD IN THE POST TAPE : TITLE 

C 

WRITE (IPOSTF ,1000) TITLE 
1000 FORMAT ( 2 0A4 ) 

C 

C SECOND RECORD : CONTROL INFORMATION 

C 

C SET VARIABLES ACCORDING TO TOE MARC DOCUMENT 
C 

INUM = ( MINCMP + 1 ) * 4 
IF( JEIGEN .EQ. 1 ) INUM = 0 
LNUM = NNODE 

MNUM = NELEM 

NDEG = MAXNFR 

NSTRES = 2 

JNOD = MAXNFR * 2 
IPSTCC = 1 

IPSTYP = 1 
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1 

1 


NCRD 
IF( NCRD 
NNOCMX 
IANTYP = 

IF( JEIGEN .EQ. 
IF( JEIGEN .EQ. 
ICQMPL = 0 

NBCTRA = 0 

IPOSTR = 1 

IEM4 = 0 

IDM5 = 0 

IDM6 = 0 

IDM7 = 0 


MAXCRD 

•EQ. 7 ) NCRD 
NELNCD 
2 


= 3 


•AND. 

.AND. 


IDYNM .EQ. 
IDYNM .EQ. 


IANTYP = 
IANTYP = 


15 

16 


WRITE (IPOSTF, 1010) INUM ,LNUM ,MNUM 

1 IPSTCC , IPSTYP , NCRD 

2 NBCTRA, IPOSTR, IDM4 
1010 FORMAT( 6113) 


,NDEG ,NSTRES, JNOD , 
, NNOCMX, IANTYP, ICCMPL, 
, IEM5 , IDM6 , IEM7 


C CODE NUMBER ASSOCIATED WITH ELEMENT VARIABLES 

C 

IF( JEIGEN .EQ. 1 ) GO TO 3000 
C 





JPL0T( 

1 

) 

= 

17 




JPLOT( 

2 

) 

=s 

11 




JPLOT( 

3 

) 


12 




JPL0T( 

4 

) 

= 

13 

IF (MINCMP 

.o:. 4 

) 

JPL0T( 

5 

) 

= 

14 

IF(MINCMP 

.GE. 5 

) 

JPLOT( 

6 

) 

= 

15 

IF (MINCMP 

* GE • 6 

) 

JPLOT( 

7 

) 

= 

16 




INDX 



= 





JPLOT( 

INDX 

+ 1 

)= 

39 




JPL0T( 

INDX 

+ 2 

)= 

1 




JPLOT( 

INDX 

+ 3 

)= 

2 




JPLOT( 

INDX 

+ 4 

)= 

3 

IF(MINCMP 

• GE • 4 

) 

JPLCT( 

INDX 

+ 5 

)= 

4 

IF (MINCMP 

• GE • 5 

) 

JPLOT( 

INDX 

+ 6 

)= 

5 

IF(MINCMP 

•GE* 6 

) 

JPLCT( 

INDX 

+ 7 

)= 

6 




INDX 




INI 




JPLCT( 

INDX 

+ 1 

)= 

7 




JPD0T( 

INDX 

+ 2 

)= 

21 




JPL0T( 

INDX 

+ 3 

)= 

22 




JPL0T( 

INDX 

+ 4 

)= 

23 

IF(MINCMP 

• GE • 4 

) 

JPL0T( 

INDX 

+ 5 

)= 

24 

IF(MINCMP 

• GE. 5 

) 

JPLOT( 

INDX 

+ 6 

)= 

25 


MINCMP + 1 


MINCMP + 1 
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IF(MINCMP 

• GE « 6 

) 

JPL0T( 

INDX + 

7 

) = 

26 





INDX 



= 

INDX 

+ mincmp + l 




JPL0T( 

INDX + 

1 

>“ 

8 





JPL0T( 

INDX + 

2 

) = 

31 





JPL0T( 

INDX + 

3 

) = 

32 





JPL0T( 

INDX + 

4 

) = 

33 


IF(MINCMP 

• GE • 4 

) 

JPL0T( 

INDX + 

5 

) = 

34 


IF(MINCMP 

.GE. 5 

) 

JPLOT( 

INDX + 

6 

)= 

35 


IF(MINCMP 

• GE! • 6 

) 

JPL0T( 

INDX + 

7 

) = 

36 





INDX 



= 

INDX 

+ MINCMP + 1 


C 

WRITE(IPOSTF,1030) (JPLOT(K) ,K=1,INDX) 
1030 F0RMAT( 113) 

C 

3000 CONTINUE 


DATA BLOCK IV : ELEMENT CONNECTIVITY DATA 


DO 6000 

IEL 

= 

1 


, NELEM 


IC 

= 

IWORK ( 

ITYP + IEL - 1 ) 


NELNOD 

ss 

0 




IF( IC 


.EQ. 0 

) 

GO TO 6007 

CALL ELVULV 






1 ( IWORK , IC 

, IERR 

) 





IADRES 

= 

INEL 

+ 

MAXNOD * ( IEL 


JADRES 

= 

IADRES 


NELNCXD - 1 


. . . SPECIAL TRICK ASSOCIATED WITH THE FRONTAL SOLUTION 

DO 6005 INTPNT = 1 , NELNOD 

JNTPNT = INTPNT + IADRES - 1 
005 KPLOT(INTPOT)= LABS (IWORK( JNTPNT ) ) 

007 CONTINUE 

. . . REPLACE THE ASSUMED STRAIN ELEMENTS WITH THE MATCHING MARC/MENTAT 
ELEMENT NUMBERS (A LITTLE INNOCENT LIE THAT WON'T HURT ANYBODY) 

IC1 = IC 

IF ( IC .EQ. 151 ) IC1 = 3 
IF ( IC .EQ. 152 ) IC1 = 11 
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IF ( IC .EQ. 153 ) IC1 = 10 
IF ( IC .EQ. 154 ) IC1 = 7 
C 

WRITE (IPOSTF, 1010) IC1 ,NELNOD, (KFLOT(K) ,K=1,NEI2«D) 

6000 CONTINUE 

C 

C DATA BLOCK V : NODAL COORDINATE DATA 

C 

DO 6010 INODE = 1 NNODE 

C 

LADRES = INOD + MAXCRD * ( INODE - 1 ) * IDP 

CALL POSTPR 

1 (RWORK( IADRES) ,NCRD, IPOSTF) 

C 

6010 CONTINUE 

9000 CONTINUE 
C 

C INCREMENTAL HEADER RECORD 

C 

NSUBIN = 1 

IF( JEIGEN .EQ. 1 ) NSUBIN = NDYNMD 
C 

DO 8000 I SUB IN = 1, NSUBIN 
C 

RINCRE = JINC 
FREQUN = 0 

RFLAGS = 0 

RANTYP = 0 

RDUMMY = 0 

C 

IF( JEIGEN .EQ. 0 ) GO TO 5100 
C 

RINCRE = RINCRE + 0.01D0 * ISUBIN 
INDX = IQMEG + ( ISUBIN - 1 ) * IDP 
CALL COPY ( RWORK(INDX) , FREQUN , 1 ) 

IF( IDYNM .EQ. 1 ) RANTYP = 15 
IF( IDYNM .EQ. 0 ) RANTYP = 16 
C 

5100 CONTINUE 
C 

WRITE( IPOSTF, 1020) RUNTIM, RINCRE, FREQUN, RFLAGS .RANTYP, RDUMMY 
1020 FORMAT (6G13. 6) 

C 

IF( JEICEN .EQ. 1 ) GO TO 7500 
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c 


c 

c 

c 

c *** 
c 


INUM 

INITAL 

DO 7000 INODE 

IREC 

CALL NUL( VALUE , MAXVAL ) 
VALUES CALCULATED AT THE LAYER 


= ( MINCMP + 1 ) * 4 
= 0 

= 1 , NNODE 

= 0 


level ***************************** 


INTLAY = 1 

IF( NELLAY .NE. 1 ) INTLAY = 3 

C 

C *** FIRST DATA OF THE SERIES IS TEMPERATURE ************************* 
C 

C+ LOCTEM = ITEM + (( INODE - 1 )*MAXLAY + INTLAY - 1 )*IDP 
C+ IREC =1 
C 

C+ CALL COPY( RWORK(LOCTEM) , VALUE (IREC) , 1 ) 

C 

C *** TENSORIAL QUANTITIES AND THEIR INVARIANTS ************************ 
C 


c 

(I) 

TOTAL STRESS 

c 

(II) 

TOTAL STRAIN 

c 

(III) 

PLASTIC STRAIN 

c 

(IV) 

CREEP STRAIN 


C 

DO 5200 INPQNT = 1 ,MAXQNT 
C 

INILOC = LOCATE (INIQNT) + (( INODE - 1 )*MAXLAY + INTLAY - 1 ) 
1 * IDP * MAXCMP 

C 


CALL COPY( RWORK(INTLOC) , BUFFER , MINCMP ) 

IF( INIQNT .EQ. 1 ) CALL EQVS 

1 ( EQVAL , BUFFER , MINCMP , NDI , NSHEAR , JLAW , NONISO , 

2 INODE ) 

IF( INIQNT .CT. 1 ) CALL EQVC 
1 ( EQVAL , BUFFER , MINCMP , NDI , NSHEAR , JLAW ) 


IREC = IREC + 1 


CALL COPY( EQVAL , VALUE (IREC) , 1 ) 

IREC = IREC + 1 

CALL COPY( BUFFER , VALUE (IREC) , MINCMP ) 

IREC = IREC + MINCMP - 


1 
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UCJUU CJ UOOU UUCJ 


5200 CONTINUE 
C 

CALL POSTEN( VALUE , INUM , IPOSTF , INODE , NNODE , INITAL ) 

7000 CONTINUE 

C 

7500 CONTINUE 

TOTAL DISPLACEMENT AT THE CURRENT INCREMENT AND REACTION FORCE 

IF(NTRAN .EQ. 0) GO TO 9550 

CALL TRANS2(NIRAN,RWORK(ITRANR) ,IWDRK(ITRAN) ,RWORK(IDTOT) , 

1 NFD,-1.D0,NELNFR, JLAW) 

CALL TRANS2(NTRAN,RTORK(ITRANR) ,IWORK(ITRAN) ,RWORK(IDINC) , 

1 NFD,-1.D0,NELNFR, JLAW) 

550 CONTINUE 

IDVEC = IDTOT 

IF( JEIGEN .EQ. 1 ) IDVEC = IEGWC + ( ISUBIN - 1 ) * NFD * IDP 

DO 5000 INODE = 1 , NNODE 

. . . TOTAL DISPLACEMENTS OR EIGENVECTOR 

JNTLOC = INLV + ( INODE - 1 ) * MAXNFR 

KNELOC = IDVEC + ( IWORK( JNTLOC) - 1 )*IDP 
CALL COPY( RWDRK(KNTLOC) , VALUE , MAXNFR ) 

NENTRY = MAXNFR 

. . . NODAL REACTION VECTOR 

INDX = NELNFR + 1 

IWTLOC = IRESID + ( IWORK( JNTLOC) - 1 )*IDP 
CALL COPY( RWORK(IJ^TLOC) , VALUE ( INDX ) , MAXNFR ) 

NENTRY = NENTRY + MAXNFR 
C 

CALL POSTPR 

1 ( VALUE , NENTRY , IPOSTF ) 

C 

5000 CONTINUE 

C 

IF(NTRAN .EQ. 0) GO TO 9530 

C 

CALL TRANS2(NTRAN / RW0RK(ITRANR) , IW0RK( ITRAN) ,RWORK( IDTOT) , 
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1 


NFD, l.DO,NELNFR, JLAW) 

CALL TRANS2(NTRAN,RWDRK(ITRANR) ,IWORK(ITRAN) ,RW3RK(IDINC) , 


1 


NFD, 1 . DO ,NELNFR, JLAW) 

9530 


CONTINUE 

8000 CONTINUE 

R E 

END 

T 

URN 


The data record packing for the element data is carried out in the following 
SUBROUTINE POSTEN: 


C=SUBROUTINE=POSTEN POST FILE (3INERATI0N UTILITY 
SUBROUTINE POSTEN 

1 (ARRAY ,NENTRY, IPOSTF, INCOE ,NNODE , INITAL) 

ir****************************************************************,^,^^ 


IMPLICIT REAL* 8 ( A-H , O-Z ) 
REAL*4 RWDRK 


******************it**-k*-k*-kifk*-k*****'k-k-k1rtrk*-k*****1i**-k-k*1fk***-k1i*******-k* 


DIMENSION ARRAY (NENTRY) 


CQMMDN / POSTPN / IPOINT, JPOINT,KPOINT,NDATA ,PRNTBF( 6 ) 

IF ( INITAL .NE. 0 ) GO TO 4950 

IPOINT = 1 

JPOINT = 1 

KPOINT = 1 

NDATA = 6 

INITAL = 1 

CONTINUE 

IPOINT : POINTER FOR TOE LAST ENTRY OF TOE PRINT BUFFER 
JPOINT : POINTER FOR TOE CURRENT ARRAY ENTRY TO BE PRINTED 


JPOINT 

C 

5000 

C 


1 


C 0 


KPOINT = JPOINT + 5 
C 


N 


T 


I N U E 
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IF( KPOINT .GT. NENTRY ) GO TO 6000 

CALL COPY ( ARRAY (JPOINT) , PRNTBF ( IPOINT ) , NDATA ) 

CALL POSTPR( PRNTBF , 6 , IPOSTF ) 

JPOINT = JPOINT + NDATA 
NDATA = 6 

IPOINT = 1 

GO TO 5000 

HALF FILL THE PRINTER BUFFER AND RETURN 

6000 CONTINUE 

MDAIA = NENTRY - JPOINT + 1 
NDATA = 6 - MDAIA 
IPOINT = MDAIA + 1 

CALL COPY ( ARRAY( JPOINT) , PRNTBF ( 1 ) , MDAIA ) 

IF THE LQAST NODE IS ENTERED WRITE THE LAST RECORD EVEN IF IT IS 

INCOMPLETE 

IF( INODE .LT. NNODE ) GO TO 9000 
IF( MDAIA .EQ. 0 ) GO TO 9000 

CALL NUL ( PRNTBF (IPOINT) , NDATA ) 

CALL POSTPR( PRNTBF , 6 , IPOSTF ) 

9000 RETURN 
END 



Page : 168 


MHOST Version 4.2 



APPENDIX SUBROUTINES 


Subroutines included in the MHDST code. Version 4.2, are summarized in this 
appendix. The routine names are sorted in alphabetical order. A brief 
description of each routine is given, in conjunction with the names of 
common blocks referenced therein. Names of routines referenced in seme of 
the vitally important routines are given in this document. Note that almost 
all subprograms written for the MHDST package are self-documented and 
further information can be obtained directly from the source listing. 

ACCLIN 

Reads in initial acceleration data from the main input data 
reader. 

Common block: MACHIN 

ADAPTC 

Controls the adaptive time step size adjustment for creep strain 
evaluation 

Common block: ALGEM 

ADAPTD 

Controls the adaptive time step size adjustment for transient 
dynamic calculations . Not fully functional in Version 4.2. 

Cdtmon block: TIME, TOLER, CONIRD 

ADAPTS 

Controls the adaptive load increment size adjustment for the arc 
length method 

Common block: ALGEM 

ADD 

Adds two double precision real vectors. 

ADDBAN 

Adds the lumped values listed in SVAL with the connectivity 
specified in L/CON to the global array GABF in band form. Not used 
for profile-stored global arrays. 

ADDIAG 

Adds the lumped values listed in SVAL to the global array. This 
subroutine is the profile-storage counterpart of ADDBAN. 
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ADDINC 

Updates total quantities by adding together the values at the 
beginning of the increment and the incremental values - 

Cannon block: AUTOIN, ELTTP, CQNTRO, SUEELM, MAXIMA, PARAM, START1, 

STARK, START3, STARK, START6, START8, TIME 

ASMVEC 

Assembles global vector fron the d.o.f. conversion table. See 
also SUBST1 . 

ASSEM1 

Assembles the displacement stiffness matrix for quasi-static 
analysis. Works with the profile solver. 

Garmon block: AIGEM, ADDVAL, AUTOIN, BSECT, CONTROL, BODYFR, LOUBIN, 

ELEMEN, ELTYP, ERRORS, MAXIMA, PARAM, PULSES, START1, 
STARK, START3, START4, START5, START6, STARK, START8, 
SUBELM, SUBSTR, TIME, TRANSF, MACHIN 


ASSEM2 

Assembles the global time integration operator matrix for direct 
time integration. Works with the profile solver. 

Ccmmon block: ALGEM, ADDVAL, AUTOIN, BSECT, CONTROL, BODYFR, LOUBIN, 

ELEMEN, ELTYP, ERRORS, MAXIMA, PARAM, PULSES, START1, 
STARK, STARK, START4, START5, START6, STARK, STARK, 
SUBELM, SUBSTR, TIME, TRANSF, MACHIN 


ASSEM3 

Assembles the displacement stiffness matrix for quasi-static 
analysis. Works with the frontal solution. 

Cannon block: ALGEM, ADDVAL, AUTOIN, BSECT, CONTROL, BODYFR, LOUBIN, 

ELEMEN, ELTYP, ERRORS, MAXIMA, PARAM, PULSES, START1, 
STARK, STARK, START4, STARK, STARK, STARK, START8, 
SUBELM, SUBSTR, TIME, TRANSF, MACHIN 


ASSEM4 

Assembles the residual vector for quasi-static and transient 
dynamic analyses. The routine includes the variational recovery 
of nodal strains, nodal stress recovery and element loop for the 
internal force calculation. 

Cannon block: ALGEM, ADDVAL, BSECT, COUNTR, CQNTRO, ELEMEN, ELTYP, ERRORS, 
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MACHIN, MAXIMA, SUBELM, SUBTYP, LQUBIN, PARAM, START1, 
STARK, START3, START4, STARK, STARK, STARK, START8, 
TRANSF, TIME 


ATTRIB 

Attributes the element connectivity data by the duplicate node and 
tying options. 

Common block: AHUM, ERRORS, MAXIMA 

RACSTJB 

Performs back-substitution for the nodal displacement vector as a 
part of the frontal solution subsystem. 

BANDER 

Calculates the maximum bandwidth. 

Common block: ELTYP 

BANNER 

Prints banner on the line printer output file. 

BASAXS 

Generates strain-displacement matrix for axisyrrmetric element 
based on the assumed stress method. 

BASEIN 

Reads in parameters defining harmonic base excitation. 

Common block: MACHIN 

BASPSN 

Generates strain-displacement matrix for plane strain element 
derived from the assumed stress method. 

BASPST 

Generates strain-displacsnent matrix for plane stress element 
derived from the assumed stress method. 

BAXSYM 

Generates strain-displacement matrix for axi symmetric element by 
the numerical integration. 

BEAMIN 

Reads in beam section properties. 
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Ccrrmon block: MACHIN 


BPGSIH 

Performs the BFGS update for the left hand side of the nonlinear 
equations . 

BFGSRH 

Performs the BFGS update for the right hand side of the nonlinear 
equations . 

BPGSVW 

Generates the global projection vectors required for the BFGS 
update. 

BFDQAD 

Controls the generation of element body force load vector. 

EMSTRS 

Evaluates constitutive equations for the beam element. Note that 
the current version only supports a linear elastic beam element . 

BNDTRM 

Preintegrates the lamina constitutive matrix to obtain the 
constitutive resultant with respect to the bending moment — 
curvature terms for shell elements. 

BODYIN 

Reads in parameters defining body force loading. 

Common block: MACHIN 

B0UND1 

Applies the displacement constraint by eliminating row and column 
of the global profile-stored stiffness equations. 

B0UND2 

Applies the displacement constraint to a global vector. 

B0UND3 

Applies the displacement constraint to a substructure . Obsolete 
in Version 4.2. 

BOUNDN 

Calculates the weighted normal vector at nodes on the boundary. 
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Canmon block: ALGEM 


BOUNFR 

Applies the nodal displacement constraint to the frontal solution 
elimination process. 

BOUNIN 

Reads in boundary displacanent constraint data. 

Ccmmon block: MACHIN 

BPSTRN 

Generates strain-displacanent matrix for isoparametric plane 
strain element by numerical integration. 

BPSTRS 

Generates strain-displacanent matrix for isoparametric plane 
stress element by numerical integration. 

BREAD 

Reads an array frcm a specified Fortran I/O unit stored in binary 
form. 

BSHELL 

Generates strain-displacement matrix in resultant form for 
isoparametric shell element by means of selective reduced 
integration. 

BSCSLID 

Generates strain-displacanent matrix for isoparametric solid 
element by numerical integration. 

BTBEAM 

Generates strain-displacement matrix for the linear isoparametric 
Timoshenko beam element fcy reduced integration. 

BUCKLE 

Drives the buckling analysis losing subspace iterations for 
eigenvalue extraction. 

Cannon block: AUIOIN, MAXIMA., CTITLE, DAMP, EIGEN, INCCON, MACHIN, ELEMEN, 

ELTYP, CQNTRQ, SUBSTR, ERRORS, PARAM, START1, START2, 

START3, START4, START5, START6, START8, TIME 

BULKIN 
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Supervises the reading operation of the bulk (rrodel) data. 

Cannon block: CQNTRO PARAM, SUBELM 

External reference: INITI1, DATIN2, DATOU1, CHKEI21, SUBDIV 

BWRITE 

Writes an array to a specified Fortran I/O unit in binary form. 

CENMAS 

Assembles the stiffness matrix entries related to the centrifugal 
mass terms for an element. 

Cannon block: BODYFR 


External reference: NUL, GAUSSP, COPY, S2D04N, VSH04N, TBM02N, S1D0ZN, 

S3D08N, D2D04N, D3D08N, DAX04N, GSH04N, DBM32N, SUBT 


CENT2D 

Calculates the centrifugal load vector for a two-dimens ional 
(plane stress/strain) element. 

CENT3D 

Calculates the centrifugal load vector for a three-dimensional 
solid element. 


CEOTAX 

CENTBM 

CEMTSH 

CHARIN 


Calculates the centrifugal load vector for a axisynmetric element. 
Calculates the centrifugal load vector for a beam element . 
Calculates the centrifugal load vector for a shell element. 


Reads in material property data. 
Cannon block: MACHIN, ELTYP 


CHCHAR 

Identifies the value of a number given as a single character. 

CHKELM 

Checks to see if the element connectivity is given in the counter 
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clockwise manner. If not, prints warning messages and repairs the 
connectivity table entries. Dangerous. 


Garmon block: ALGEM, AUIOIN, BSECT, CONTRO, BODYFR, LOUBIN, ELEMEN, ELTYP, 

ERRORS, MAXIMA, PARAM, START1, START2, START3, START4, 
START5, START6, START7, START8, SUBSTR, TIME, TRANSF, MACHIN 

External reference: ELVULV, QNODEL, INSIDE, t.tnrs 

CNODEL 

Pulls out information related to the current element. See Section 
2.2 for detail. 


CCmmon block: TMARCH, ALGEM, CONTRO, ELTYP, MAXIMA, PARAM, START1, START2, 

START4, START5, START6, START7, START8, START9, MACHIN 


External reference: SEARC1, SEARCH, INTERP, ROTDMT, TSH04N, SHTRAN, TRANSP, 

MATINV, TBM02N, ADD, ADDSMU, NUL 


CNSMAS 

Assembles the consistent mass matrix for an element. 

CNSTNM 

Constructs a consistent transformation from nodal to nodal data 
for linear dynamics by modal superposition. 

CCmmon block: EIGEN, ELTYP, MACHIN, MAXIMA, MDDSUP, PARAM, POWER, START1, 

STARK, START6 

CQLRED 

Performs column-wise reduction for back-substitution. 

CQMPDF 

Copies the definition of element parameters in the workspace for 
caiposite shells 

Canton block: START1 

COMPIN 

Reads material property data for the composite laminate option 
with shell elements. 

Canton block: ALGEM 

COMPRO 
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Computes the profile column heights and pointers for profile- 
storage of the global stiffness array. 

Common block: ELTYP, MAXIMA, PARAM, ALGEM 

CQNDSE 

Removes specified row and column of a square matrix. 

CONNIN 

Reads element connectivity data - 
Common block: ELTYP 

CQOTIN 

Adds incremental load (defined as the nodal force) to the total 
load vector. 

Common block: MACHIN 

COORIN 

Reads coordinate data for nodes. 

COPY 

Copies a double precision real array to another double precision 
real array. 

COPYDS 

Copies a double precision real array to a single precision real 
array. 

COPYIN 

Copies an integer array to another integer array. 

COFYSD 

Copies a single precision real array to a double precision real 
array. 

CORDTR 

Transforms the coordinate system defining the strain component 
from global to local, filters out specific components and 
transforms back to the original global coordinate system. Used by 
the strain-displacement matrix routines. 

COROOT 

Debug writes the nodal coordinates. 
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CPXEK1, CPXBK2 

Back substitutes for the solution of complex matrix equations 
stored in the band-matrix form. 

CPXDIV 

Divides a carplex number by another complex number. 

CPXEXC 

Sets up ccrrplex harmonic based excitation vector. The function is 
fully contented. 

CPXFAC 

Performs the crout deccrtpos it ion of complex matrix equations 
stored in the banded form. 

Common block: ALGEM 

CPXPOR 

Sets up the nodal force vector for the complex harmonic analysis. 

CPXMUL 

Multiplies two carplex numbers. 

CPXREA 

Assembles the caiplex nodal reaction force vector due to the 
complex base excitation. 

CPXRES 

Calculates the harmonic nodal force. 

CRPLAW 

Defines the equivalent creep strain increment. To be used as a 
User Subroutine. See also the MHOST Version 4.2 Users' Manual. 

CRPSTN 

Determines quantities related to creep strain effects. 

CUTHIL 

Optimizes the band-width of global equations by Cuthil-MoGee 
algorithm. Called by OPTIM. 

D2D04N 

Calculates derivatives for two dimensional four node elements . 

D2D09N 
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Calculates derivatives for two dimensional nine node elements. 


D3D08N 

Calculates derivatives for three dimensional eight node hexahedral 
elements. 

D3D27N 

Calculates derivatives for three dimensional quadratic elements 
with 27 nodes. 

DAMPIN 

Reads in parameters defining damping terms in transient dynamic 
analysis. 

Ccmmon block: MACHIN 

DASHIN 

Reads in the definition of additional damping terms in the form of 
discrete dashpots. 

Ccmmon block: MACHIN 

DAT1 

Outputs an integer array on the line printer file. 

Common block: ALGEM 

DAT2 

Outputs a real array on the line printer file. 

Common block: ALGEM 

DAT3, DAT5 

Outputs a pair of integer and real arrays on the line printer 
file. 

Ccmmon block: ALGEM 

DATBMS 

Prints out elastic beam section properties. 

CCmmon block: ALGEM 

DATCG1 

Modifies parameter data during a restart job. 
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Ccmmon block; ALGEM, CONTRO, ERRORS, HARMON, EARAM, PERIOD 


DATER 

Calls systems' routine to pull out today's date and time of the 
day. System dependent. See Section 0.4. 

DATIN1 

Supervises read operations of parameter data. 

Ccmmon block; ALGEM, COUNT, CTITLE, ERRORS, FREE 
DATIN2 

Supervises read operations of model data and construction of in- 
core database. 

Cannon block; ADDVAL, PULSES, POWER, EIGEN, MODSUP, HARMON, ALMOIN, BSECT, 
TIME, ALGEM, CONTRO, DAMP, MAXIMA, PARAM, START1, START2, 
START3, START4, START5, START7, SUBEUYI, SUBSTR, SHIFT, 

TOLER, INCCON, ERRORS, FREE 


DATIN3 

Supervises read operations of incremental data. 

Ccmmon block; ALGEM, ALMOIN, CCNIRO, COUNT, EIGEN, ERRORS, FREE, MAXIMA, 
PARAM, START1, STARK, BODYFR, START3, START4, START5, 
START6, START7, TIME, TOLER, INCCON 


DATOH1 

Prints out model data as interpreted on the line printer. 

Ccmmon block; ALGEM, CONTRO, PARAM, INCCON, BODYFR 
DAT0U1 

Prints out parameter data as interpreted on the line printer. 

Ccmmon block; ALGEM, COUNT, START4, EIGEN, HARMON, PULSES, CONTRO, TIME, 

ALMOIN, BSECT, MAXIMA, TMARCH, LOUBIN, PERIOD, SHIFT, PARAM, 
START1, STARK, STARK, START5, STARK, SUBSTR, INCCON, 
TOLER, MACHIN 


DATCU4 

Prints incremental data as interpreted on the line printer. 
Ccmmon block; ALGEM, CONTRO, PARAM, INCCON, TOLER 
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DAX04N 

Calculates derivatives for four node axisymmetric elements. 

DAX09N 

Calculates derivatives for nine node axisymmetric elements. 

DEM02N 

Calculates derivatives for two node linear Timoshenko beam 
elements . 

DECINT 

Converts a given string to an integer. 

Common block: ALGEM 

DECOMP 

Factorizes a symmetric matrix stored in profile form. 

Ccnrnon block: PARAM 

DECREA 

Converts a given string to a real. 

Common block: ALGEM 

DEPGUP 

Updates the total deformation gradient at the end of an increment. 

DERIV 

Controls access to the entries in the element library. 

Common block: ALGEM, CCNTRO, ELTYP, ELEMEN, ERRORS 

DIAM 

Measures maxim bandwidth from a root rode. Called by rrrmrr. and 
used for bandwidth optimization. 

Common block: ALGEM 

DIRECT 

Generates three orthogonal vectors, one of which is orthogonal to 
the plane defined by two given vectors. 

Ccnrnon block: ALGEM 
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DISPIN 

Reads in initial displacements for transient analysis. 

Carmen block: MACHIN 

DISTIN 

Reads in distributed load data. 

Common block: MACHIN 

DIV2Q2 

Generates two dimensional subelement mesh composed of 9 node 
quadratic quadrilaterals. 

DIV2X2 

Generates two dimensional subelement mesh composed of 4 node 
linear quadrilaterals. 

DMATIN 

Reads in stress-strain matrix defined directly at nodes. 

Common block: MACHIN 

DMPING 

Sets up the modal damping matrix for the current element. 

DOT (Function Subprogram) 

Calculates dot-product of two double precision real vectors. 

DSH04N 

Calculates derivatives for four node shell elements in the lamina 
coordinate system. 

DSHELL 

Converts the notation between tensorial and matrix forms for 
stress-strain matrix. 

DSLQAD 

Controls the access to the element distributed load routines. 

Ccramon block: CENTRO, ELTYP, ELEMEN, MAXIMA, PARAM, START1, START2, 

START3, START4, START5, START6, START7, MACHIN 


DUPLIN 

Reads in duplicate node definition data. 
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Common block: MACMN 


DXOUT 

Prints out a double precision array for debugging purposes. 

DYNAMT 

Drives the transient time integration for dynamic analysis. 

Common block: ALGEM, AUTOIN, PERIOD, CTITLE, DAMP, EIC2U, INCCON, ELEMEN, 

ELTYP, MAXIMA, CQNTRO, SUBSTR, ERRORS, PARAM, START1, 

START2, MACHIN, START3, TMARCH, START4, START5, START6, TIME 

DYNOP 

Assembles the element operator matrix for transient time 
integration. 

Common block: ALGEM, TMARCH 

EIGENV 

Drives the eigenvalue extraction subsystem by subspace iteration. 

Common block: CONTRO, ELEMEN, EIGEN, SHIFT, ELTYP, PARAM, MACHIN, START3, 

START4, START5, START7 

ELVULV 

Pulls out parameters defining element characteristics from the 
workspace. 

Common block: ALGEM, CONTRO, ELTYP, START1, PARAM, ELEMEN 

EQVC 

Calculates the strain invariant from the given deviatoric strain 
tensor stored in vector form. 

EQVS, EQVSTR 

Calculates the stress invariant from the given deviatoric stress 
tensor stored in vector form. 

ERROR 

Prints error message on the line printer output file. 

Common block: ALGEM 

ETRANS 

Transforms coordinates for the nodal displacement vector according 
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to user instructions. 


Canmon block: ALGEM 

FXLINT 

Fills an integer array with its address or its inverse order. 
Ccmmon block: ALGEM 

FILL 

Fills a double precision real array with a specified number. 


FIRST1 

Re-numbers the nodes for Cuthill-McKee optimization. 


FIXINT 

Imposes constraints onto the frontal solution. 

External reference: F FLINT, VULVRG, COPY 

PCDjOIN 

Reads parameters specifying the concentrated nodal follower force. 
Ocxnmon block: MACHIN 

FORRES 

Calculates forced vibration response by modal superposition. 


FREDQM 

Drives the linear dynamic analysis in frequency domain. 

Common block: CTITLE, TIME, AUTOIN, START1, START2, START3, START4, 

START5, START7, START8, ALGEM, EIGEN, MDDSUP, POWER, DAMP, 
INCCON, MACHIN, ELEMEN, MAXIMA, ELTYP, CONTRO, SUBSTR, 
ERRORS, PARAM, SHIFT 

External reference: STRUCT, TIMDOT, ASSEM1, SOLOT1, ASSEM4, RESCON, ADD INC, 

PRINOU, POSTOU, COPY, NUL, INITST, SUBT, MASMAT, MADD, 
EIGENV, CNSTNM, PNITNM, INTSQQ, SETRMS, QUIT 

FREFOR 

Reads free format numeric data line from the card reader. 

Ccmmon block: ALGEM, FREE 
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FRNl'KL 

Sets up the elimination table for the frontal solution and 
calculates maximum front matrix size. 

Common block: ALGEM, PARAM, MAXIMA, MACHIN 

FRNIOP 

Optimizes element numbering for the frontal solution. Not fully 
functional in Version 4.2. 

FRQNTB 

Performs back substitution of global equations factorized the by 
the frontal process. 

FRCNTF 

Performs forward elimination of global equations by the fron tal 
process . 

FRCNTR 

Performs resolution by frontal solution for a newly defined load 
vector with a readily factorized system of equations. 

FRONTS 

Drives the quasi-static solution process utilizing the frontal 
solution scheme. 

Cdmton block: CTITLE, TIME, AUTO IN, STAFT1, START2, START4, START5, 

STARK, ALGEM, EIC2N, INCCON, MACHIN, ELEMEN, MAXIMA, ELTYP, 
CQNTRO, SUBSTR, ERRORS, PARAM, STARK 

FRQNIW 

Computes the maximum front width from the element connectivity 
table. 

Cannon block: ALGEM, MAXIMA, MACHIN 

GALJSSP 

Returns coordinates and weight factors for Gaussian quadrature. 

GBM02N 

Calculates derivatives for two node linear Timoshenko beam element 
with respect to element coordinate system. 

GENCOR 

Generates coordinates for subelement nodes which divide global 
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element uniformly. 


GENNOD 

Generates connectivity table for uniformly divided subelement 
mesh. 

GEQMAT 

Assembles the geometric stiffness for large displacement and 
buckling analyses. 

External reference! GAUSSP, COPY, S2D04N, S3D08N, D2D04N, DAX04N, DSH04N, 

D3D08N, NOTION 

GETBSP 

Extracts data for beam section properties. 

Ccnrnon block: AT GEM 

G02GD0 

Rotates stresses and strains back to global configuration in 
finite deformation analysis. 

External reference: ROTTEN, ROIBAK 

G02ROT 

Rotates stresses and strains to mid-increment configuration in 
finite deformation analysis . 

External reference: ROTTEN, ROTPOR 

GRAV2D 

Produces body force vector due to gravity acceleration for two- 
dimensional elements . 

Catmon block: ALGEM 

GRAV3D 

Produces the body force vector due to gravity acceleration for 
three-dimensional elements. 

GRAVAX 

Produces the body force vector due to gravity acceleration for 
axi symmetric elements. 

GRAVBM 
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Produces the body force vector due to gravity acceleration for 
beam elements. 

GRAVSH 

Produces the body force vector due to gravity acceleration for 
shell elements. 

GSH04N 

Calculates the element normal to four node shells. 

HARMIN 

Reads in parameters for harmonic base excitation. 

Ccmmon block: ALGEM 

HEAD 

Prints the MHOST banner and system's information on the line 
printer output file and terminal screen. 

Ccmmon block: CTITLE 

HQLECR 

Generates coordinate data for an embedded hole represented by a 
subelement mesh. Called by HQLEDF. 

HOLEDF 

Defines an element with a parameterized hole using the subelement 
procedure . 

Ccmmon block: MAXIMA, ELTYP, SUBTYP, MACHIN, START1, TRANSF, START6 

External reference: ELVULV, QNODEL, HQLECR, HOLEIM 

HOLE IN 

Reads parameters to define a embedded hole in a global element. 
Ccmmon block: ELTYP, SUBELM, MACHIN 

HOLEIM 

Generates connectivity array for an embedded hole represented by a 
subelement mesh. Called by HQLEDF. 

HOQKEM 

Calculates the linear elastic stress-strain matrix for beam 
elements . 
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External reference: NUL, GETBSP, MULT 

HOGKLW 

Calculates the linear elastic stress-strain matrix for all element 
types other than beams. 

External reference: NUL, OTEMP, UHOOK 

HOST 

Supervises execution of the MHOST code. See Section 1.2 for 
detail. 

Common block: CQNTRO, ALGEM, ADDVAL, TMARCH, AUTOIN, PERIOD, POWER, 

PULSES, EIGEN, ERRORS, MDDSUP, HARMON, LOUBIN, START5, 
START4, PARAM, BSECT, INCCON, MACHIN, SUBSTR, SUBELM, SHIFT 

ICLEAR 

Zero clears an integer array. 

INCRIN 

Drives the reader and report writer for incremental data. 

External reference: DATIN3, DAT0U4, DAT0U1 

INCSBC 

Inposes stress boundary conditions. 

INIMDP 

Creates initial eigenvectors for subspace iteration. 

Common block: CQNTRO, MAXIMA, ELTYP, ELEMEN, PARAM, EIGEN, START1, START2, 

START3, START4, START5, START6, START7, START8, MACHIN 

External reference: QUIT, NUL, COPY, RATIO, MAXIM 

INITDF 

Initializes the nodal deformation gradient array. 

INITFR 

Allocates memory for frontal solution option. 

Catmon block: ALGEM, CONTRO, PARAM, MACHIN, MAXIMA, EIGEN, START5, START6 

INITI1 

Allocates memory for in-core nodal database. 
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Ccmton block: ADDVAL, ALC3M, CCNTRO, DAMP, EIGEN, MDDSUP, HARM3N, POWER, 

PULSES, MAXIMA, PARAM, TMARCH, PERIOD, SUBELM, SHIFT, 
SUBTYP, BSECT, START1, START2, START3, START4, START5, 
START6, START7, START8, START9, SUBSTR, MACHIN, ERRORS 


INITI2 

Allocates memory for the profile solution for q uas i-static, 
dynamic and eigenvalue analyses. 

Canton block: ADEEM, CONTRO, PERIOD, EIGEN, ERRORS, MAXIMA, PARAM, START1, 

START3, STARTS, START4, MACHIN 


INITIN 

Reads parameters defining initial conditions for transient 
analysis. 

Carmon block: ALGEM, ERRORS, CONTRO, MAXIMA, ELEMEN, ETYPE, START1, 

START5, PARAM, FREE, START2, START4 

External reference: KEY, DISPIN, VELCIN, ACCLIN, PERDIN, QUIT 

INITSE 

Allocates memory for the subelement nodal database. See Section 
2.2 for detail. 

Carmon block: SUBTYP, ALGEM 

External reference: SUBELV, NULINT 

INITST 

Assembles the global initial stress matrix for quasi-static, 
dynamic and eigenvalue analysis. 

Canton block: AUTO IN, EIGEN, CCNTRO, BODYFR, LOUBIN, ELEMEN, ELTYP, 

ERRORS, MAXIMA, PARAM, START1, START2, START3, START4, 
START5, START6, START7, START8, SUBSTR, TIME, TRANSF, MACHIN 

External reference: NUL, ELVULV, CNODEL, GECMAT, ASSEM5 

INRDIR 

Redirects the input stream. 

Canton block: ALGEM, FREE 

INRFRC 
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Recovers the velocity and acceleration from the displacement 
update in transient dynamics. 

Common block: TMARCH 

INSIDE 

Checks to see if the element is inside-out and repairs the 
connectivity array, if necessary, for the linear quadrilateral and 
hexahedral elements. 

INTDYN 

Initializes the scratch file for transient dynamics. 

INTERP 

Interpolates nodal values to the integration points. 

INTINT 

Initializes the file system and execution environment. System 
dependent. See Section 0.4. Called by MAIN program. 

Common block: VKIDSK 

INTSQQ 

Integrates the spectral density function over a given range 
of frequencies . 

INV3 

Inverts a 3 by 3 matrix. 

INVERT 

Inverts a general square matrix. 

Common block: ALGEM 

ITERIN 

Reads parameters defining convergence criteria. 

Common block: TOLER 

External reference: FREFOR 

JACOBI 

Extracts eigenvalues of a square matrix. Called by SUBSPC. 

Ccumon block: ALGEM 
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External reference: MAXIM, SMULT, T.TNES 


JT (Function subprogram) 

Gives the address of a specified entry in a global array stored in 
band matrix form. 


KEY 

Checks to see if a string matches to a keyword. 

Garmon block: ALGEM, FREE 

L2N0RM 

Calculates 1 norm of a given vector. 

LAXSYM 

Calculates the load vector due to body force loading on 
axisymmetric elements. 

Ccranon block: ALGEM 

LAYIWr 

Integrates lamina quantities to resultants for thick shell 
elements. 

LELAST 

Calculates linear elastic response of a material for a pre-de fined 
stress-strain matrix. 

LETCMD 

Sets up the integer control variables for the compound execution 
of analysis drivers. See Section 1.2 for detail. 

Caution blocks: ALGEM, CONTRO, CQMPND, PARAM, EIGEN, MACHIN 

LEVEL 

A part of the front matrix size optimization package. Not used in 
Version 4.2. 

LINES 

Advances the line number of the line printer output file (HiPRNT) . 
Common block: AT GEM 

External reference: PAGE 
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LINE52 


Advances the line number of the line printer output file (JLPRNT) . 
Common block: MAXIMA, ALGEM, ZPRINT 

External reference: PAGE2, PAGE 3 

LINESR 

Calculates search distances for the line search algorithm. 

Common block: MACHIN, CQNTRO, ALGEM, AUIOIN, PARAM, START3, START4, 

START5, START7, TOLER 


LINESU 

Advances the line number of the line printer output page used for 
the subelement solution. 

Cannon block: MAXIMA, ALGEM, ZPRINT 

External reference: PAGE2S, PAGE 3S 

LMPMAS 

Calculates the diagonalized Gramm matrix for nodal strain 
projections. Either Gauss-Lobatto or Gauss/ncw-sum algorithm can 
be used. 

LOCVEC 

Fills up the address table for the global array stored in band 
matrix form. 

Cannon block: ELTYP 

LPSTRN 

Calculates the load vector due to body force loading on plane 
strain elements. 

LPSTRS 

Calculates the load vector due to booty force loading on plane 
stress elements. 

LSHELL 

Calculates the load vector due to booty force loading on shell 
elements . 

LSOLID 
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LTBEAM 


MMX) 

MAIN 

Gcmmon 

MASMAT 

Canmon 

MASSIN 

CCtnmon 

MATINV 

MATONE 

MATPRT 

Cannon 

MATSUM 

MAXGCN 


Calculates the load vector due to body force loading on solid 
elements . 


Calculates the load vector due to body force loading on beam 
elements . 


Adds a matrix to a product of another matrix and a scalar. 


Main program, 
block: blank, MACHEN 


Assembles the global consistent matrix stored in profile form. 


block: 


AUTOIN, EIGEN, CONTRO, BODYFR, LOUBIN, ELEMEN, ELTYP, 
ERRORS, MAXIMA, BSECT, PARAM, START1, START2, START3, 
START4, START5, START6, START7, START8, SUBSTR, TIME, 
TRANSF, MACHIN 


Reads in the connectivity and magnitude of added mass, 
block: MACHIN 


Inverts a given square matrix. 

Fills the diagonal entry of a global matrix by unity. 

Prints out a two dimensional array with a header, 
block: ALGEM 


Adds tvro arrays multiplied by given constants for each array. 

Finds the maximum connectivity at nodes used for bandwidth 
optimization. 
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MAXIM 

Pulls out the maximum value from a double precision array. 

PERDIN 

Reads data defining the periodic loading in transient dynamics. 
Cannon block: MACHIN, ELTYP, PERIOD 

PERDOP 

•Applies pjeriodic loading to the current time integration step. 
Ccrrrnon block: ALGEM 

PJOOP 

Debug - writes a double precision real variable/array. 

PLASTD 

Calculates a consistent tangent modulus for an elastic plastic 
material at a given state of stress and deformation history. 

Gammon block: ELEMEN 

PLASTS 

Calculates the stress state of an elastic -plastic material by 
return mapping. 

Cannon block: ELEMEN 

PAGE 

Advances a page of line-printer output file ( ILPRNT) and prints 
the header. 

Cannon block: ALGEM, CTITLE, PAQCMT 

PAGE2 

Advances a page of line-printer output file (JLPRNT) and prints 
the header for nodal variables. 

Ccmnon block: ALGEM, CCNTRO, CTITLE, RESULT, TIME, PAGCNT 

PAGE 3 

Advances a page of line-printer output file (JLPRNT) and prints 
the header for element variables. 

Cannon block: ALGEM, CENTRO, CTITLE, RESULT, TIME, PAGCNT 
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PAGE25 

Same as PAGE2 . Used for subelement solution. 

PAGE35 

Same as PAGE 3 . Used for subelement solution. 

NUL 

Zero - clears a double precision real array. 

NULINT 

Zero - clears an integer array. 

NULURM 

Zero - clears space allocated for nodal normals of shell 
coordinate definition. 

OPTIM 

Controls execution of the bandwidth optimization option. 

External reference: LINES, MKFAKE, MAXCON, CUIHIL, QUIT 

ORIENT 

Generates the coordinate transformation matrix to the preferred 
orientation of an anisotropic material. 

OUTPRO 

Performs the outer product of two three-dimensional vectors. 

Cannon block: START2, START3, START4, STARTS, START6 , START7, START8, 

SUBSTR, TIME, TRANSF, MACHIN 

NEWVEL 

Updates the velocity vector at the beginning of a tine integration 
step. 

NODPRE 

Ccrputes the nodal pressure and directly adds it into the global 
load vector. 

NODSTR 

Ccrputes stress at a given point and generates material tangent. 

External reference: NUL, COPY, ROTPRF, THRSTN, CRPSTN, SUBT, SIMPLE, MULT, 

LELAST, PLASTS, PLASTD, WALKEQ 
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NOTION 

Converts stresses and strains stored in vector form to tensorial 
form. 

NRMNRM 

Normalizes the nodal normal vector and stores its components as a 
part of the coordinate data for shell elements. 

MULT 

Multiplies twa two-dimensional matrices. 

MULTT 

Multiplies a matrix by the transpose of another matrix. 

NEWACC 

Updates the acceleration vector at the beginning of a time 
integration step. 

NGWADD 

Allocates the acceleration and velocity vector at the beginning of 
a time step to temporary storage. 

NEWMRK 

Adds the element stiffness and mass matrices to generate the 
element time integration operator matrix. 

External reference: MADD 

NEWRHS 

Forms global load vector. 

Canmon block: ALTTOIN, BSECT, CQNTRO, BODYFR, LOUBIN, ELEMEN, ELTYP, 

ERRORS, PULSES, MAXIMA, PARAM, START1 

MESURE 

Calculates a distance from the integration point to a straight 
line defined by tvro points. 

MID 

Calculates the coordinate of the mid edge node. Not used in 
Version 4.2. 

MIDDLE 

Drives the calculation of coordinates and connectivity for mid 
edge nodes. Not used in Version 4.2. 
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MKFAKE 

Sets up a fake connectivity table including tying constraint for 
bandwidth optimization. 

MODAL 

Drives the modal analysis. 

Ccmmon block: CTITLE, TIME, AUIOIN, START1, START4, STARTS, ALGEM, EIGEN, 

INCCQN, MACHIN, ELEMEN, MAXIMA, ELTYP, CONTRO, SUBSTR, 
ERRORS, PARAM, SHIFT, START8 

External reference: STRUCT, TIM3OT, ASSEM1, MASMAT, MADD, EIGENV, POSTOU 

PNTTNM 

Sets up the convolution terms for nodal loads. 

PGLD2D 

Performs polar decomposition of a two-dimensional second order 
tensor. 

PQLD3D 

Performs polar decomposition of a three-dimensional second order 
tensor. 

POLICE 

Debug - writes contents of a specified carmen block. 

PQSTEN 

Packs the record of nodally defined element variables for the post 
tape. See Section 3.4 for detail. 

Common block: POSTPN 

POSTOU 

Writes out post processing data. See Section 3.4 for detail. 

FQSTPR 

Writes contents of buffer to the post processing tape. 

PREFIN 

Reads in the parameters defining the preferred orientation of an 
anisotropic material. 

Common block: MACHIN 
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PRELEM 

Extracts information of the current element frcm the nodal 
database. A simplified version of CNODEL used in PRINOU. 

Cannon block: CONTRO, ELTYP, MAXIMA, PARAM, START1, START2, START3, 

START4, START5, START6, START7, START8, MACHIN 


PRESET 

Initializes working arrays used for front matrix size 
optimization. 

Cannon block: ALGEM 

PRESIN 

Reads parameters defining pressure loads. 

Cannon block: MACHIN 

PRFRNT 

Controls the front matrix size calculation and the subsequent 
memory allocation. 

Cannon block: CONTRO, PARAM, ELEMEN, ELTYP, MAXIMA, MACHIN, START1, 

START2, START3 

PRINCV 

Solves a 3 by 3 eigen problem by Jacobi iteration. 

PRININ 

Reads control data for line printer output. 

Cannon block: FREE 

PRIN01, PRIN02, PRIN03 

Writes an array with a header. 


PRINOU 

Controls the line printer output of the global solution. 

Common block: CCNTRO, ALGEM, ELEMEN, ELTYP, RESULT, START1, START2, 

START4, START6, SUBELM, TIME, TRANSF, ZPRINT, MACHIN 


PRINSU 

Controls the line printer output of the subelement solution. 
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Carmen block: CCNTRO, ALGEM, ELEMEN, ELTYP, RESULT, START1, START2, 

START4, START6, TIME, TRANSF, ZPRINT, MACHIN 

PRINTM 

Debug - writes the element stiffness matrix. 

Common block: AT GEM , ELEMEN 

PRINTS 

Debug - writes the global stiffness matrix stored in band matrix 
form. 

Common block: ALGEM 

PRNSHL 

Prints the nodal coordinate transformation matrix for shells. 

PRNTEL 

Repots the connectivity table resulting from automatic subelement 
mesh generation. 

PRNINO 

Reports the coordinates resulting from automatic subelement mesh 
generation. 

PRTERR 

Prints error message and does not STOP but returns the control. 
Common block: AT GEM 

PRWARN 

Prints warning message. 

Common block: ALGEM 

PSDIN 

Reads the power spectrum definition. 

Common block: MACHIN 

PULS IN 

Reads the pulse load definition. 

Common block: MACHIN 
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PUTDUP 

Adds the duplicate node option as a special element in the frontal 
solution subsystem. 

PUTTIE 

Adds the tying equation as a special element in the frontal 
solution subsystem 

QNODEL 

Extracts element quantities fron the global nodal database. This 
is yet another subset of CNODEL. 

Cannon block: TMARCH, ALGEM, CENTRO, ELTYP, MAXIMA, PARAM, START1, START2, 

START4, START5, START6, START7, START8, START9, MACHIN 

QUIT 

Prints the error message and terminates the execution. 

Cannon block: ALGEM 

R3DTEN 

Defines three-dimensional rotation matrix for decanpos it ion of the 
deformation gradient. 

RAMDSK 

Initializes the buffer area used for the out-of-core frontal 
solution. 

COnmon block: VRTDSK, ALGEM, PARAM, MACHIN, START5 

RATIO 

Subdivides entries of one array by corresponding entries of 
another array. 

RBF 

Rotates stress and strain vectors to preferred orientations. 

READEX 

Reads header and a double precision read, array fron a binary file. 

REASPR 

Calculates reaction force due to an added spring. 

REDIAG 

Reduces the diagonal entries of a profile store global stiffness 
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matrix. 


RELDFG 

Canputes the nodal incremental deformation gradient. 


RELOAD 

Forms the follower force at the end of an increment. 

Common block: ALGEM, ADDVAL, AUIOIN, BSECT, CONTRO, BODYFR, LOUBIN, 

ELEMEN, ELTYP, ERRORS, MAXIMA, PARAM, PULSES, START1, 

START2, START3, START4, START5, START6, START7, START8, 
SUBELM, SUBSTR, TIME, TRANSF, MACHIN 

External reference: NUL, ADD, RTFOLF, ELVULV, CNODEL, DERIV, INIERQ, STIFF, 

ETRANS, SUBST1, BFLQAD, DSLQAD, QUIT 


RESCHK 

Tests for convergence flag associated with the residual. 

RESCON 

Tests for convergence in terms of residual reaction and 
displacement . 

Common block: ALGEM, CONTRO, PARAM, START1, START2, START3, START4, 

START5, START6, START7 , START8, SUBEIM, SUBSTR, TIME, 
TRANSF, MACHIN 

External reference: ADD, SUBT, TYTNG2 , B0UND2, MAXIM, L2N0RM, LINES, SUBT 

RESDYN 

Calculates the contribution of mass and damping terms to the 
residual vector. Called by ASSEM4 when the direct time 
integration flag is on. 

Common block: TMARCH, ALGEM 

RESEQ1 

Renumbers nodes for the reduction of front width. Not functional 
in Version 4.2. 

RESEQ2 

Renumbers elements for the reduction of front width. Not 
functional in Version 4.2. 

RESID 
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Forms the residual vector. Called by ASSEM4. 


Common block: PARAM 

RESOLV 

Resolves the same equation by frontal solution method for a 
different load vector. 

Common block: ALGEM 

RESTRT 

Reads the restart file. See Section 3.3 for detail. 

Common block: ADDVAL, ALGEM, AUTOIN, BCOYFR, BSECT, CONTRO, CQMPND, COUNT, 

DAMP, ElffiN, MODSUP, ELEMEN, HARMDN, INCCON, MAXIMA, LOUBIN, 
PARAM, PERIOD, POSTPN, PCWER, PULSES, RESULT, START1, 

START2, START3, START4 , START5, START6 , START7, START8, 
START9, SUBELM, SUBTYP, SUBSTR, SHIFT, TIME, TMARCH, TOLER, 
VRIDSK, Z PRINT 


ROTBAK 

Rotates the stress state back to the global coordinate system in 
finite deformation analysis. 

RCfUMT 

Rotates the element stress strain matrix into the global 
coordinate system for shells. 

External reference: ORIENT, COPY, QUIT, MATINV, NUL, TSHIFT, TFULL2, MULT 

ROTPOR 

Rotates the stress state state into the deformed configuration 
coordinate system in finite deformation analysis. 

ROTPRF 

Rotates the stresses and strains defined in global coordinates to 
the preferred orientation of an anisotropic ma ter ial , 

ROTTEN 

Calculates the rotation tensor from the polar decomposition of the 
deformation gradient in finite deformation analyses . 

ROW 

Pulls out a complete row from profile stored global matrix. 
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RSHELL 


Treats the randan vibration input for shell elements. 


RTBEAM 

Treats the randan vibration input for beam elements. 

RTFCfLF 

Rotates load vector entries treated as follower forces. 

RUNCMD 


Loads control parameters for compound executions. 
Canmon block: CCNTRO, CQMPND, MACHIN 

SID02N 


S2D04N 

S2D09N 

S3D08N 

S3D27N 


Shape 

Shape 

Shape 

Shape 

Shape 


functions 

functions 

functions 

functions 

functions 


for the one-dimens ional two node element, 
for the two-dimensional four node element, 
for the two-dimensional nine node element, 
for the three-dimensional eight node element . 
for three-dimensional twenty-seven node element . 


SAVER: 


Writes the restart file. See Section 3.3 for detail. 


Cannon block: ADDVAL, ALGEM, AUTOIN, BODYFR, BSECT, CONTRO, CCMPND, COUNT, 

DAMP, EIGEN, M3DSUP, ELEMEN, HARMON, INCCQN, MAXIMA, DOUBIN, 
PARAM, PERIOD, POSTPN, POWER, PULSES, RESULT, START1, 

START2, START3, START4, STARTS, START6, START7, START8, 
START9, SUBELM, SUBTYP, SUBSTR, SHIFT, TIME, TMARCH, TOLER, 
VRTDSK, Z PRINT 

SBC IN 

Reads in stress boundary condition data. 

Canton block: MACHIN 


SCALER 
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Scales loading to a given proportion. 


CCmmon block: MACHIN, START8 

SEARCH 

Pulls out double precision real element nodal quantities frcm the 
globed nodal data base. 

SEARCI 

Pulls out integer element nodal quantities from the global nodal 
database. 

SELECT 

Reads and decodes strings for print option data input. 

SETCCM 

Sets up the complex coefficient matrix for base excitation. 

SETHFN 

Sets up the vector for complex modal damping. 

SETQLR 

Sets the limit for the search distance in the line search option. 

SETQMD 

Calculates modal damping. 

SETRMS 

Finds the root-mean-square value for a modal function from the 
frequency response. 

SETUP 

Computes the adjacency list for front width optimization. Not 
functional for Version 4.2. 

SHIFIN 

Reads parameters defining the power shift in modal dynamics. 
Ccmnon block: MACHIN 

SHOHEI 

Debug - writes an integer array. 

SHTRAN 

Transforms nodal ly defined shell stress and strain resultants to 
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values in element coordinates. 


SIMPLE 

Calculates the stress and generates the tangent modulus for secant 
elasticity model for elastoplastic response under a monotonically 
increasing load. 

SK 

Integrates the element coefficient matrix into the global array 
stored in band matrix form. 

SMASTR 

Extracts element quantities from the global element used for 
subelement analysis. Yet another variation of CNODEL. 

Garmon block: TMARCH, CONIRO, ELTYP, MAXIMA, PARAM, STAPT1, STARK, 

START4, START5, START6, START8, MACHIN 


SMULT 

Multiplies an array by a scalar. 

SNODEL 

Transfers global element results into the subelement mesh. 

SQLOT1 

Controls execution of the linear algebraic equation solver by the 
profile method. 

Canrron block: AUTO IN, CONTRO, EIGEN, ELTYP, MAXIMA, PARAM, PULSES, START 1, 

START3, START4, START5, START7, MACHIN, TOLER 

External reference: ADD, RTFQLF, ADDPUL, SUBT, TYING1, B0UND1, DECQMP, 

BFGSVW, BFGSRH, COPY, SOLVER, MADD, MATSUM, BFGSLH, 
TYING3, L2N0RM, TYING2, B0UND2, ADAPTS 

SQLLTT2 

Controls execution of the linear algebraic equation solver by the 
band matrix method. Not used in Version 4.2. 

SOLVER 

Solves linear equations for nodal displacement. 

Cannon block: ALGEM, PARAM 

SOLVIT 
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Solves a small system of algebraic equations by Gaussian 
elimination. 

SPRIIN 

Reads parameters defining the added spring stiffness. 

Camon block: MACHIN 

SPSTRS 

Generates the strain displacement matrix at a given point in the 
current element of plane stress type. 

SSQLID 

Generates the strain displacement matrix at a given point in the 
current element of three-dimensional continua type. 

STATIC 

Drives the incremental iterative solution of a quasi-static 
problem. 

STCKIO 

Controls the data flew between in-core buffer and the work file 
for the frontal solution. 

Common block: ALGEM, MACHIN, VRTOSK 

STIFF 

Calculates the current element tangent stiffness matrix and the 
load vector. 

External reference: NUL, MATPRT, SMULT, MULT, TMULT 

STRAIN 

Recovers strain at nodes. 

Camon block: COUNTR 

STRESS 

Controls the nodal stress recovery operation including pre- 
integration through the shell thickness. 

STRING 

Decodes the input data string. 
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Camon block: ALGEM, FREE, COUNT 


STRIPB 

STRSBC 


Finds non— blank entxy in a given character string. 
Iirposes the stress boundary condition called by ASSEM4 . 


STRUCT 

Controls the core allocation and elimination table construction 
for global matrix manipulation. 

Common block: AIGEM, CQNTRO, MAXIMA, PARAM, START1, STARK, START3 

START4, START5, SUBSTR ' 


SUBALC 

Allocates working storage for the subelement solution. 

SUBCHK 

Checks convergence of the subelement solution in terms of 
displacement update. 

CCramon block: ALGEM, SUBCNV 


SUBDER 

Controls access to the element library in the subelement solution. 
COnmon blocks: ALGEM, CQNTRO, SUBTYP, ELEMEN, ERRORS 

SUBDTV 

Controls the subelement mesh generation. 

Camon blocks: ALGEM, CQNTRO, ELTYP, ERRORS, MACHIN, MAXIMA, PARAM, START1 

START5, START6, SUBTYP ' 


SUBELV 

Extracts element definition variable for the current subelement. 
Camon block: ALGEM, SUBTYP, START1, PARAM, ELEMEN 

SUBFEM 

Supervises the mixed iterative solution in the subelement mesh 
Called by ASSEM4. 


Camon block: ALGEM, CQNTRO, ELTYP, ELEMEN, SUBTYP, TRANSF, LOUBIN, 
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MAXIMA, PARAM, ERRORS, MACHIN, TIME, START1, START2, START3, 
START4, START5, START6, START7, START8, START9, TOLER 

External reference: TIMXTT, SUBELV, SUBALC, SMASTR, NUL, SNODEL, LMPMAS, 

SUB INI, SUBT, STRESS, ADD, SUBDER, INTERP, STIFF, 
SYSEQN, SUBSOL, STRAIN, SUBRES, SUBCHK, SUBGLB, SUBGLD 

SUBGLB, SUBGLD 

Calculates residual for a global element generated by the 
subelement solution. 


SUBINC 

Adds the incremental values of the subelement solution to the 
total array. 

Common block: AUTOIN, CONTRO, SUBTYP, START1, START2, START4, START6, 

START8, TIME 


SUBINT 

Interpolates global quantities at subelement nodes. 

SUBRES 

Calculates the mixed residual for the subelement solution. 

SUBSIN 

Reads in substructure data. Not used in Version 4.2. 

SUBS01, SUBS02 

Back - substitutes for the factors of the global array stored in 
band matrix form to generate the displacement corresponding to the 
given load vector. Not used in Version 4.2. 

SUBSOL 

Solves the subelement stiffness equations for the subelement 
displacement . 

SUBSPC 

Controls execution of the subspace iteration for eigenvalue 
extraction. 

Common block: ALGEM, SHIFT 

External reference: NUL, UPTX, JACOBI, TBCUT, COPY, MADD, QUIT, SMDLT, 

LINES 
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SUBST1 

SUBSTN 

SUBT 

SUBVAL 


Converts the element load vector to the global load vector. 

Adds the element nodal value to the global vector. 

Subtracts arrays. 

Interpolates element nodal values to a given point specified by 
the isoparametric coordinate system. 


SUPER 


Common 


Drives modal superposition for linear dynamics. 

block: CTITLE, TIME, ADTOIN, START1, STARK, START4, START5 

EIGEN, MDDSUP, HARM3N, INCCON, DAMP, MACHIN, ELEMEN 
ELTYP, CONTRO, SUBSTR, ERRORS, PARAM, SHIFT, START8 


, ALGEM, 
MAXIMA, 


SYSEQN 

Assembles the global finite element equations for subelement 
analysis . 


T2D04N 

Calculates the local coordinate system for two-dimensional four 
node elements. 

T2D04P 

Calculates the local coordinate system for two-dimensional four 
node elements using the Cayley-Hamilton formula. 

T3D08N 

Calculates the local coordinate system for three-dimensional eiqht 

TVY'wak Pidmonf ^ 


TBM02N 

Calculates the local coordinate system for two node beam element. 

TEMPIN 

Reads in nodal temperature definition data. 


Conxion block: MACHIN 


TFULL2 
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Transforms the material modulus into fully three-dimensional form. 

THRSTN 

Calculates thermal strain. 

External reference: UTEMP, NUL, TJCOEF 

TIME IN 

Reads in parameters defining the time increment control. 

TIMER 

Accesses to the system dependent CPU clock routine. See Section 
0.3. 

TMXrr 

Reports the job step and elapsed CPU time. 

Common block: ALGEM, CONTRO, TIMLOC 

TMULT 

Multiplies the transpose of an array by a matrix. 

TMULTV 

Multiplies the transpose of an array by a vector. 

TNSPRD 

Multiplies two tensors stored in vector form. 

TRACIN 

Reads in nodal concentrated forces. 

Cannon block: MACHIN 

TRANIN 

Reads nodal coordinate transformation data. 

Cannon block: MACHIN 

TRANS 1 

Applies a transformation to the global stiffness matrix stored in 
band matrix form. 

TRANS2 

Applies a transformation to the global vector. 
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TRANSP 


Transposes a tvo-dimensional matrix. 


TSH04N 


TSHIFT 


TYING1 


TYTNG2 


TYTNG3 


TYININ 


Calculates local coordinates for four node shell elements . 

Sets up tensor transformation with respect to the preferred 
orientation of an anisotropic material . 


SS mtS n IcS? straints °" ^ 9lotal stitfness 


Imposes tying constraints on the global vector. 
Releases tying constraints in the global vector. 


in 


Reads in coefficients of the tying equations. 
Cannon block: MACHIN 


TYPEIN 

Defines element parameters used in the analysis. 

S SS. UC ° EF ' UC0 ° R ' WERIV r UFORCE, UHOOK, UPRESS, UTEMD, UIHERM, USXX 
Ifeer^subroutines. Fully documented in MHDST Volune 1 USERS' 


UNITST 

UPTX 

UPTXL 

valint 


Generates the global unit matrix in profile stored form. 
Multiplies a banded matrix by a vector. 

Multiplies a lunped mass matrix by a vector. 

Linearly interpolates data given in a table. 
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VDSKID 


Manages a record for out-of-core frontal solution. 


Common block: AT /GEM, MAXIMA, MACHIN, VPTOSK 

VELCIN 

Reads initial velocity definition data. 
Common block: MACHIN 

VMULT 


Multiplies an array by a vector. 


VSH04N 


Generates the local coordinate system for four node shell 


VTMULT 

VULVRG 


WMULT 

WALCQN 


elements . 

Multiplies the transpose of an array by a vector. 


Makes the conversion table for the degree of freedom from the 
connectivity and constraint data. 

Multiplies two vectors. 


Calculates temperature dependent material constraints for the 
Walker model. 


WALKEQ 

Calculates stress and internal variables for the Walter model. 


WORKIN 


Reads in work-hardening data for a homogeneous elastic plastic 
material . 


Carmen block: MACHIN 


WKSLP 


Calculates the hardening slope for elastoplasticity. 


WRITEX 
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YIEL 


Writes a record on a binary file. 


Calculates the yield stress and hardening slope for a qiven 
equivalent plastic strain. " 


External reference: WKSLP 


YIELIN 


Reads in the nodal definition of a stress-strain curve for an 
elastic plastic material. 


Conxion block: MACHIN 




